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Indul a Forráskód, az első magyarnyelvű, 
6564 oldalas, 3.57-es lemezmelléklettel meg- 
jelenő, színes, programozói magazin. 
Mindazoknak szól, akiket nem elégítenek ki 
a kész programok, hanem saját kezükbe 
akarják venni a számítógép irányítását. 
segítjük a programnyelvek oktatását, támo- 
gatjuk a hazai szoftverfejlesztőket. 


Előfizethető a kiadónál, a mellékelt csekken. 
Megjelenik: havonta. 


A Forráskód lemezmellékletén 
a hónap kódjain túl egy 
érdekes animációt, képeket 
és három ajándék szoftvert 
talál. 





Programjaink önálló arculatá- 
nak kialakításában segít 
cikksorozatunk. Ebben a szám- 
ban grafikus gombmenüt és 
élő grafikont készítünk. 


Középhaladóknak szóló 
assemler sorozatunk témája 
egy komplett játékprogram 
elkészítése. 















A Windows erőfor- 
rásairól és haszná- 
latukrálkolvashatunk 
ebbe írásban. 








Animáció 
Animáció 
Animáció 


A Pc túléli önmat 

Az irodák után a vá 
világot -is meghód 

ja, de előbb átölm" 
tözik. 


TUTATTON 
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Biztosan KE találkoztatok azzal a problémával, hogy si pet 


n-e a számítógépben matematikai segé 













végújés programok ftzatanánál tnek 
rt. Ennek a kis assembler pi 
het is, és beépíthetjük ; 671 


J 








a E eő 
Ennek a hgy fonom a segítségével megfélel az EAX alsó 16 bitjének. — 
megtudhatjuk, — " kely./ detektálni . egy 4 A processzorban 4 db vé; 
numerikus pröc: y számítógépben, és ha " találunk, ezek a CRO, CR1, CR2 és 
nem találtui ts ú hogyan kell annak az emulá-"  vezérlőregisztert használjuk; fnal 
cióját önti ni. Ha: lefőrdítjuk, akkor egy olyan regiszterekről nem árt tudi unk, jare -Hem illik 
kis progtai cg, ami kiírja a képernyőre csak úgy összevissza írni 18g- "és azt is 
c. hogy7 arte SL KYKENSZOS és ha nincs, akkor" csak 0. privilégizált módban; léhet. Fizikai olvasá- 





bekapc olja annak az emulálását. Felhasználhatjúk 4 súk: és írásuk csakis a) MÖV utasítással lehet- 

, "külötböző nyelvekben, például C, Pascal vagy "séges. A CHO" fegiszter felelős a védett üzemmód 

" " Clippér programunkban, ha írunk egy detektáló és — engedélyezéséért, "a lapozásért és a matematikai 
egy emulálást bekapcsoló rutint. Ennek semmi segédprocesszor beállításáért. 





akadálya. Detektáláshoz a CRO 4. bitjét használjuk, ugyanis 
A forráslistában találhatunk általunk még ha ennek értéke 1, akkor ez azt jelenti, hogy 387- 
nem ismert regisztereket, de nem kell megijedni, " es van a rendszerben, (ez 486-osnál mindig 1) O 


ennek magyarázata, hogy a program 386-os valós " esetében pedig azt, hogy 287-es vagy még az sem 
özemnádbat ett megírva. Azért választottam ezt található. 
É eléve.a 387-est emulálom, ami "— Emuláláshoz a CRO 2 
s gépekben található. értéke 1, akkor A mt íi 
. vezérlőregisztere — melyeket a numerikéi tis próce jtana égréj, 
n dolgozom, így  átirányítódnak a ,féndszerhez, és jott SzoítúAN es 
e uigyan lehetőség — vagy egyéb úton "s. att Í ; 


























32 bites. ü emmódr gyehlőre elég annyit 
tudni, hogy az áltálái s regisztefeink (AX, DX, 
CX, BX) melyek 16 bitések gyái úgy megmarad- 
nak, de használhatjuk a" 3 bites/ változatait is. 
Ezek sorra a EAX, JEDX, ECX és az EBX 
regiszterek. Azz ed i 46 bites regiszterek 


ugyanúgy haszn tók toltábtípá is, mint amikor 
az AL regisz ? has; ná cé 


a14 kh 


ay 
Ma el 






Ttutlikakkonnát 


De csak akkor, ha nem gátolják a fejlődést. 





Amikor a valós világ problémáit akarjuk megoldani 
számítógéppel, a hagyományos programozástechnika 
csődöt mond. Ilyenkor használhatjuk eredményesen 
.386p az emberi agy működését utánzó 
mesterséges ideghálózatokat. 


PROG  SEGMENT use16 
ASSUME CS:PROGDS:PROG 
org — 100h 


START: 
jmp indul 





szovi db OdhOah,387-es CoProcessor Emulátor v1.0",Odh,Oah, § 


szov2 DÁTENÉSÉ ez CoProcessor a számítógpben, nem kell emulálni." A mesterséges ideghálózatok az emberhez hasonlóan 


szov3 db Odh,0ah,Nem találtam CoProcessort., Odh,Oah, §" raníthatók, a tanultak alapján nagyfokú asszociációra 
szov4 db Odh Oah,CoProcessor emulálás bekapcsolva. .Odh.0ah,§" képesek. A GERENIA két-három nagyságrenddel 

KA gyorsabb és kényelmesebb a kezelése, mint a! 
hasonló "— rendszereké. — Alkalmazási területei: / 
push cs ő alakfelismerés, karakterfelismerés, hangfelismerés, 
pop. ds T/ ! képfeldolgozás, diagnosztika, előrejelzések, 


ng Figsals szovt döntéstámogatás, jelfeldolgozás, kockázatelemzés. 


int 21h 71 kk k 


mov eax,CRO f A hagyományos adatbevitelt hivatott kiváltani az w 
and  al,16 ő űrlapfeldolgozó-archiváló keretbe ültetett 

cmp Sa 7 számítógépes kézírásfelismerés. 

je 

mov dx,offset szov2 


mov  ah9 
int. 21h 
imp vege 


mov dxvoffset szov3 Űrlapfeldolgozó rendszer 


mov  ah9 
int 21h Windoxs 3.1-hez 


d Elk kézírású karakterek felismeréséhez 
mov . CRO,eax jelölőnégyzetek és vonalkódok olvasásához 
mov dx,offset szov4 dinamikus űrlaptervezővel és leíróval rendelkezik 
mov. ah9 az mert képformátumot kezeli 











int 21h a legelterjedtebb szkennereket támogatja 
vege: kimenetén szabványos adatbázisformátumok 
MOV. AX, 4C00OH 
ERÓG S ENÓG Professzionális alkalmazásokhoz Ocular FPS! 
szkennelés: 10-72 lap/perc hagyományos OCR 
END START Í nyomtatás: 12-1200 sor/perc hálózati működés l 
archiválás-visszakeresés SOL támogatás ] 
] 
Fantasztikusan hatékony Ocular képtömörítők! 
átlagos tömörítés: 1:100 fraktál technológia 
24 bites és szürke képekhez — videofile-ok tömörítése 
felbontásfüggetlenség archiválás, multimédia 





Az Aktív Rekord a Gerenia-val és az Ocular-ral 
elnyerte a COMPFAIR 94 Vásárdíját. 


1072 Budapest — / 
Aktív Rekord Rásssziút2:. 
SZOFTVERRENDSZEREK Telefon; 322 92 78 








FARPÁSLÁN 








Írjunk Windows programot !§! 
Nyomtat ] 


. Kilép ] 














Ora a kereten 


Egy Windows-os program készítésének alapelemeit mutatja be a Forráskód egy példán keresztül, 
a már nem teljesen kezdő programozóknak. A példaprogram, elterjedtsége okán a Borland C-t 
fordító 3.1 verziójára épül, de az alapelvek más hasonló rendszerekre is igazak. 


Egy windows program készítésekor az egy vagy több forrásfile 
megírásán túl szükség van még egy modul definíciós állományra, és 
szükség szerint egy az erőforrásokat tartalmazó állományra. Először 
nézzük a létrehozandó programot leíró .DEF kiterjesztésű filet. A 
modul definíciós állomány egy szövegfile, aminek kötelezően tar- 
talmaznia kell a következő sorokat: 


[/Az exe file neve 
"Forráskód" //Szöveg, bele kerül a file-ba 
WINDOWS [/Az EXE tipusa 
"WINSTUB.EXE" //Beépül az alkalmazásba, 
//nem Windows alól indítva kilép 
[/A kódszegmens kezelése 
[/Az adatszegmens kezelése 
//Lokális memória a halomban 
//A szükséges verem mérete 
//Az ablakkezelő függvény 


Win Ora 


CODE PRELOAD MOVABLE 
DATA PRELOAD MOVABLE 
HEAPSIZE 1024 
STACKSIZE 8192 
EXPORTS WndProc 


A CODE és a DATA sorokban a szerepeltethető kulcsszavak: 


A program indításkor a kód bekerül a memóriába. 
A szegmenst a Windows áthelyezheti. 

: A Windows törölheti a szegmenst ha szükséges. 
Csak DATA sorban használható. Ha a program 
több példányban fut minden példánynak saját 
adatszegmense van. 


A Windows erőforrásokkal egy másik írásunkban foglalkozunk, néz- 
zük tehát a forrás filet. A program létrehoz egy Windows ablakot, 
megjeleníti. A létrehozáskor betölt az erőforrásból egy bittérképet. 
Majd másodpercenként tizennyolcszor lekérdezi a rendszeridőt és a 
rendelkezésre álló szabad memóriát (csere file is), majd megjeleníti 
a kereten. A program demonstratív jellegű, egyes moduljait eltérő 
színűre szedtük, a hozzájuk tartozó magyarázatot azonos színű 
keretben találjuk. Ezt az írást egy állandó Windows programozói 
rovat indításaként gondoljuk. Akikben sikerült felkelteni az érdek- 
lődést a Windows programozás iránt, írják meg mi érdekli őket, hogy 
a tematika kialakításánál figyelembe vehessük. Akinek kész 
programja van, azt is várjuk. 
Nagy Sándor 





A program a C nyelv szabályai szerint kezdődik. Beillesztjük a win- 
dows.h állományt, ezt minden Windows programnak tartalmazniaj 
kell, ebben deklarálódnak a Windows függvényei, állandói. 

A time.h beillesztését az adott feladat indokolja, ezt követi néhány 
deklaráció. 

A főprogram által hívott függvények is a szokásos C szintaxist 
követik. Ami feltűnik: a szokatlan tipusazonosítók, és az ismeretlen 
függvények. A tipus definíciókat a már említett windows.h file tar- 
talmazza. Láthatóan ezeket csupa nagybetűvel írjuk. 

Nagyon sokszor használunk struktúrákat, ezekre is az előbbiek 
érvényesek. A Windows, objektumai azonosítását 16 bites 
számokkal oldja meg, ezek az azonosítók előre deklaráltak és nagy 
H-val kezdődnek (handle). Az ismeretlen függvények a Windows 
API részei (több mint 600 van belőlük). 


Minden Windows programnak kötelezően tartalmaznia kell egy 
WinMain nevű függvényt. Ez a program belépési pontja, a főprogram. 


A WinMain felépítése : 

- Deklarációk. 

- Az alkalmazás ablak osztályainak meghatározása. 
Ez egy stuktúra kitöltéséből, a RegisterClass függvény 
meghívásából áll. 

- Az alkalmazás ablakának létrehozása. 

Meghívjuk a CreateWindow függvényt. 

- Az alkalmazás ablakának megjelenítése. 

Meghívjuk a SnowWindow és a UpdateWindow függvényt. 

- Üzenetek továbbítása az ablakkezelő függvénynek. 
Minden ablakhoz tartozik egy ablakkezelő függvény, 
amit mi írunk, de közvetlenül sohasem hívjuk meg. 

A WinMain végén található végtelen ciklussal minden 
Windowsos esemény: billentyű leütés, egér mozgatás 
stb. esetén négy számból álló üzenetet küld az Windows 
az ablakkezelő függvénynek. 


Az ablakkezelő függvény egyszerű szerkezet. A szükséges deklará- 
ciók, függvényhívások után egy switch-case utasításpárral elkapjuk 
azokat az üzeneteket, melyeket mi akarunk feldolgozni, ezekre 
megírjuk a szükséges eljárásokat. A többi utasítást hagyjuk rácso- 
rogni a Windows saját ablakkezelő függvényére, a DefWindowProc 
eljárásra. 





FORPÉSLÁN 4 






















include "windows.h" 
dtinclude "time.h" 
tdefine ID TIMER 1 





long FAR PASCAL WndProc( HWND, WORD, WORD, LONG); 
HANDLE hinst; 


void Ora( HWND hWnd, HDC hDC) 
( 


char buff(30]; 
LONG ido; 
RECT rect; 
struct tm "dt; 

int iz-t; 
DWORD fmem; 







































time( 8ido); 
dt - localtime( 8ido); 
fmem - GetFreeSpace( 0); 
sprintf( buff," 9a2d:9e2d:992d  99.3f MB free", 

dt-xtm hour, dt-tm min, dt-xtm sec, fmem/1024.0/1024.0); 
GetcClientRect( hWnd, 8rect); 
rect.top - rect.top t 4; 
rect.right — rect.right - 38; 
DrawText( hDC, buff, i, 8rect,DT. SINGLELINE [ DT. RIGHT [ DT. TOP ); 
) 


void PaintBitmap( HWND hWnd, HDC hdc, HBITMAP hBitmap) 





1 
HDC 





hdem; 


HBITMAP hBitmapm; 
BITMAP logo; 

RECT rect; 

int szel, magas; 


GetObject( hBitmap, sizeof( BITMAP), (LPSTR) 8logo); 
GetClientRect( hWnd, §rect); 


szel 7 logo.bmWidth; 
magas — -logo.bmHeight; 
hdem - CreateCompatibleDC( hdo); 


hBitmapm - SelectObject( hdem, hBitmap); 

BitBit( hdc, 0, 0, szel, magas, hdem, 0, 0, SRCCOPY); 
SelectObject( hdem, hBitmapm); 

DeleteObject( hBitmapm); 

DeleteDC( hdem); 


int PASCAL WinMain (HANDLE hinstance, HANDLE hPrevinstance, 
LPSTR IpCmdLine, int nEmdShow) 
( 


MSG msg; 
HWND hWna; 
WNDCLASS wndc; 
if ( IpCmalLine ); hinst — hinstance; 
if (lhPrevinstance) 

( 


wndc.style z CS HREDRAW ] CS VREDRAW; 
wndc.IpfnWndProc  - WndProc; 

wndc.cbClsExtra z0 

"wndc.cbWndExtra z0; 

"wndc.hinstance - hinstance; 

wndc.hicon z Loadicon(NULL, IDI APPLICATION); 


wndc.hCursor z LoadCursor(NULL, IDC ARROW); 
wndc.hbrBackground - GetStockObject(LTGRAY BRUSH); 
wndc.IpszMenuName - NULL; 

wndc.IpszClassName - "Forraskod"; 

RegisterClass( 8-wndc); 












































hWnd - CreateWindow(Forraskod", 
"Óra demo", 
WS OVERLAPPEDWINDOW, 
CW USEDEFAULT, 
CW USEDEFAULT, 
480,135, 
NULL, 
NULL, 
hinstance, 
NULL ); 


ShowWindow(hWnd, nCmdShow); 
UpdateWindow(hWnd); 

SetTimer(hWnd, 1,100,NULL); 

while (GetMessage (8msg,NULL,NULL,NULL)) 
KE 
DispatchMessage(émsg); 


) 
, 


long FAR PASCAL WndProc (HWND hWnd, WORD message, 
WORD wParam, LONG IParam) 


( 


RECT rect; 

HDC hdc ,h2de; 
PAINTSTRUCT ps; 

static HBITMAP hBitmap; 


hde - GetDC(hWnd); 
GetClientRect(hWnd, 8rect); 
ReleaseDC(hWnd, hdc); 

h2dec - GetWindowDC(hWnd); 
ReleaseDC(hWnd,h2dc); 





switch (message) 






case WM CREATE: 
hBitmap - LoadBitmap( hinst, "forraskod"); 

hde — GetDC( hWnd); 

PaintBitmap( hWnd, hdc, hBitmap); 

ReleaseDC( hWnd, hdo); 






case WM PAINT: 
hde - BeginPaint( hWnd, 8.ps); 
PaintBitmap( hWnd, hdc, hBitmap); 
EndPaint( hWnd, 8.ps); 

return FALSE; 






case WM TIMER: 
Ora (hWnd,h2dc); 
break; 






case WM DESTROY: 
KillTimer (hWnd,ID. TIMER); 
PostauitMessage(0); 

return FALSE; 


b 


return DefWindowProc(hWnd, message, wParam, IParam); 








IS 





Az eszközfügg 





etlen bittérkép 


A Windows standard képformátuma a BMP kiterjesztésű eszközfüggetlen bittérkép. 


Nézzük meg ennek felépítését egy 


Az OS/2 Presentation Manager-ben vezették be azt a képfile formá- 
tumot, amelyik az egyes képpontokat a konkrét színinformációval, 
színbitekkel írja le. A színek közvetlenül az RGB (piros, zöld, kék) 
színösszetevők arányával vannak meghatározva, így nem függenek a 
megjelenítő eszköz tipusától. 

Az egyes pontokat meghatározó színbitek száma többféle lehet, így 
többféle színmélységgel tárolhatunk képet: 


Színbitek száma:  Megjeleníthető színek száma: 


1 2 
4 16 
8 256 
24 16 millió 


Nézzük a Windows standard képformátumának számító BMP file 
felépítését. A BMP file két részből áll: 


1. Fejrész 
2. Leíró rész 


tartalmazza a kép adatait. 

tartalmazza a képpontokat az alsó sortól 
kezdődően 1 - 24 bitenként egyet - egyet. 
A leíró rész lehet tömörített formátumú is. 


A fejrész az érdekesebb, előre definiált struktúrákból épül fel, 
melyek deklarációit a fordítók windows.h állománya tartalmazza. 


A BMP file a BITMAPFILEHEADER nevű struktúrával kezdődik. 


A BITMAPFILEHEADER struktúra mezői: 


WORD — bíType A file tipusa bittérképnél "BM". 
DWORD DbfSize A file teljes mérete. 

WORD — bfReservedl Foglalt mező feltöltve 0 -val. 
WORD  bfReserved2 Foglalt mező feltöltve 0 -val. 


DWORD DBfOffBits A leíró rész kezdete file-ban. 
Ezt a struktúrát egy újabb struktúra követi, aminek elemei maguk is 
struktúrák. 

typedef struct tagBITMAPINFO 


1 
BITMAPINFOHEADER 


bmiHeader; 
RGBOARD bmiColors[1]; 
! BITMAPINFO; 


A BITMAPINFOHEADER struktúra mezői: 


DWORD biSize A struktúra mérete byte-ban. 
DWORD biWidth A bittérkép szélessége pixelben. 
DWORD biBHeight A bittérkép magassága pixelben. 
WORD . biPlanes A színsíkok száma mindig 1. 

WORD — biBitCount Egy pixelt hány bit ír le. 

DWORD biCompression Az esetleges tömörítés formáját jelzi. 
DWORD biSizelmage Kép mérete byte-ban. 


. 





DER 


rövid C programmal szemléltetve. 


DWORD biXPelsPerMeter;  Megjelenítő eszköz vízszintes felbontása. 
DWORD biYPelsPerMeter;  Megjelenítő eszköz függőleges felbontása. 
DWORD ClirUsed; Az aktuálisan használt színek száma. 
Ha 0, mindet használja. 

Az értelmes megjelenítéshez szükséges 
színek száma. Ha 0, mindet használja. 


DWORD ClrImportant; 


Ezt a struktúrát követi egy tömb, aminek annyi eleme van, ahány 
színt használunk. A tömb elemei a RGBOUAD struktúrák, melyek 
azonosítják az egyes színeket. A struktúra mezői: 


BYTE  rgbBlue 
BYTE  rgbGreen 
BYTE  rgbRed 
BYTE — rgbReserved 


Az rgbReserved értéke mindig nulla, a többi mező a színösszetevő 
értékét tartalmazza. Ez így elég száraz és bonyolult, de a valóságban 
könnyen elboldogulunk vele. Nézzünk egy példát: egy egyszerű C 
nyelvű programmal beolvassuk a file fejlécét, a legfontosabb ada- 
tokat kiíratjuk a képernyőre, és ha 16 színű a bittérkép, meg is 
jelenítjük. 

A file elején beillesztjük a külön bmp.h file-ben lévő struktúra- 
deklarációkat. Ha paraméterrel indítottuk a programot, meghívja a 
BMPinform nevű függvényt, ha nem, kilép és figyelmeztet a helyes 
indításra. A BMPinform függvény megnyitja a parancssorban 
megadott nevű filet olvasásra, és feltölti a struktúrákat adattal. 

Ha az első két byte nem "BM", a program hibaüzenettel kilép. Ha a 
file bitmap, kiírjuk a struktúra néhány mezőjét képernyőre. 

Ha a BMPinform függvény visszatérési értéke, a pixelenkénti bitek 
száma 4, azaz 16 színű a bittérkép, meghívjuk a BMPout nevű függ- 
vényt. Újra megnyitjuk a filet, a file pointert a leíró rész elejére 
állítjuk. Megnyitjuk a grafikus rendszert, átdefiniáljuk a palettát és 
pontonként kirakjuk a képet. A paletta módosítására a BGI grafika és 
a Windows standard színeinek különbözősége miatt van szükség. Az 
eredmény így is csak közelítő. 
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HOR 





p bmp.h § 
typedef struct tagBITMAPFILEHEADER 
( 
unsigned int bfType; T""BM" azaz 0x4D42 kf 
unsigned long bfSize; F file mérete byte 1 
unsigned int. bíReserved1; 
unsigned int. bíReserved2; 
unsigned long bfOffBits; f" adatok kezdete file-ben "/ 
) BITMAPFILEHEADER; 


typedef struct tagBITMAPINFOHEADER 

( 
unsigned long biSize; Tf" struktúra mérete 1 
unsigned long biWidth; PF Szélesség pixelben "/ 
unsigned long biHeight; f" Magasság pixelben "7 
unsigned int biPlanes; F Szinsik - 1 
unsigned int biBitCount; f" szinbit per pixel 
unsigned long biCompression; !" Kompresszió 
unsigned long biSizelmage; I" Kép mérete byte 
unsigned long biXPelsPerMeter; PF Vizszintes felbontás "7 
unsigned long biYPelsPerMeter; F Függőleges felbontás. "/ 
unsigned long biCirUsed; P Használt szinek száma"/ 
unsigned long biCirimportant; I" Import szinek száma. "/ 

) BITMAPINFOHEADER; 


F bmp.c 
$include cstdio.h2 
Hinclude cstdlib.h2 
Hinclude cstring.h2 
Hinclude cgraphics.h2 
$include calloc.h2 
$include cconio.h2 
Hinclude "bmp.h" 
ttdefine VBUFFSIZE 10240 


BITMAPFILEHEADER BMPHeader; 

BITMAPINFOHEADER BNPInfo; 

unsigned  stklen - 10240; 

struct palettetype pal - ( (MMAXCOLORS), 

( EGA BLACK, 

EGA RED, 
EGA GREEN, 
EGA CYAN, 
EGA BLUE, 
EGA MAGENTA, 
EGA BROWN, 
EGA DARKGRAY, 
EGA LIGHTGRAY, 
EGA LIGHTRED, 
EGA LIGHTGREEN, 
EGA YELLOW, 
EGA LIGHTBLUE, 
EGA LIGHTMAGENTA, 
EGA LIGHTCYAN, 
EGA WHITE 
§ 

ki 


void BMPout(char "BMPfile) 


( 

FILE "Fn; 

int gdriver:DETECT gmode, x, y, maxx, maxy; 
char Color, bufff80]; 


Fn - fopen(BMPfile,"rb"); 

fseek(Fn.BMPHeader.bfOffBits, SEEK. SET); 

setgraphbufsize(VBUFFSIZE); 

if ((BMPlnfo.biWidth " BMPlnfo.biHeight) 27 farcoreleft()) 
(puts("Kevés a memória"); exit(1):) 


initgraph(égdriver, €gmode, "); 
x z graphresult(); 
if (x !- grOk) 
(printf InitGraph: 96sin", grapherrormsg(x)); exit(1);) 
x z getmaxx(); 
y - getmaxy(); 
maxx - min(x, BMPlnfo.biWidth); 
maxy - min(y,BMPlnfo.biHeight); 
setallpalette(8.pal); 
xzt; 
cleardevice(); 
y 7 maxy; 
do 
( 
for (xz0; x c maxx; xtt) 
( 
fread(8 Color, sizeof(Color), 1,Fn); 
putpixel(xtt y (Color224)); 
putpixel(x,y, (Colorg Oxf)); 


) 
) while (y— ? 0); 
getch(); 
closegraph(); 
felose(Fn); 


) 

int BMPinform(char "BMPfile) 
( 

FILE "Fn; 


Fn - fopen(BMPfile, rb"); 
fread(8BMPHeader, sizeof(BMPHeader), 1,Fn); 
fread(8BMPlnfo, sizeof(BMPlnfo), 1,Fn); 
fclose(Fn); 
if (BMPHeader.bfType!-0x4D42) 
(printffinNem BNP file")-exit(1):) 

elrser(); 
printfrtnFilen,v : 995", BMPfile); 
printfftnTipus Ty 

if (BMPlnfo.biBitCount —- 1) printf" Monokróm"); 

else if (BMPlnfo.biBitCount -- 4) printf("16-Szinü"); 

else if (BMPlnfo.biBitCount -— 8) printf("256-Szinü"); 

else printf("24-Bites RGB"); 
if (BMPlnfo.biCompression—0) printf("nNem tömörített"); 
else — printffinTömörités : 964" BMPlnfo.biCompression); 
printffinA BMP file mérete : 94ul, BMPHeader.bfSize); 
printffnKép szélessége pixelben. : "u", BMPlnfo.biWidth); 
printffinKép magassága pixelben. : 96u",BMPlnfo.biHeight); 
if (BMPlnfo.biCirImportant) 
printffinHasznált szinek száma : 99u" BMPIlnfo.biCirImportant); 
return(BMPlnfo.biBitCount); 
) 


void main (int argc, char "argv[]) 
( 

int bmp; 

if (argc —- 2) 


bmp - BMPinform(argv[1]); 
if(íbmp--4) 
( 
printffinin2 Kirajzolom..."); 
getch(); 
BMPout(argv[1]); 
elrser(); 


else printffininCsak 16 színűt tudok megjeleniteni..." ); 


else puts(" Használat BMP filenév "); 





Kopott az ablaka? 
Jesse át! 


A Windows programozásban a menüket, dialógus dobozokat, 
ikonokat, bittérképeket, kurzorokat, fontkészleteket, string 
táblázatokat, gyorsbillentyűket erőforrásoknak nevezzük. A 
Windows különlegesen kezeli ezeket, beépülnek ugyan a fut- 
tatható EXE, vagy a dinamikusan szerkeszthető DLL file- 
okba, de nem részei a program adatszegmensének. A program 
indításakor, általában az erőforrások nem töltődnek be a 
memóriába, csak ha az alkalmazásnak szüksége van rá. 
Ugyanakkor ha a Windowsnak memóriára van szüksége a 
feleslegesnek ítélt erőforrások helyét a memóriában fel- 
szabadítja, és ha megint szükség van rá újra betölti. További 
előny, hogy ha egy program több példányban fut, erőforrásait 
csak egyszer tölti be és közösen használják azokat. Program - 
fejlesztéskor az erőforrásokat egy szövegfile-ban írjuk le, 
aminek az RC kiterjesztést adjuk. Az így elkészített filet az 
erőforrás fordító az RC.exe segítségével bináris RES formá- 
tumra fordíthatjuk, és a programhoz fűzhetjük. Az itt leírt 
folyamat parancssorból is vezérelhető, de a gyakorlatban 
project-file, make-file segítségével oldjuk meg. 
Az erőforrás a programfile meghatározott helyére 
kerül, onnan alkalmas programmal kivehető, 
módosítható, visszatölthető. Ez lehetőséget teremt 
alkalmazások arculatának utólagos megváltoz- 
tatására, például menük magyarítására. A legismer- 
tebb erőforrás szerkesztő program a Borland 
fordítókhoz adott RESOURCE WORKSHOP azaz 
RWS.EXE. A Windows alatt futó RWS kényelmes 
lehetőséget biztosít erőforrások létrehozására, 
módosítására úgy, hogy bármilyen formátumot 
megnyithatunk, dialógus ablakok segítségével 
megváltoztathatjuk a tartalmukat és tetszés szerin- 
ti formátumban menthetjük, vagy visszatölthetjük 
az alkalmazásba. Példaként a Windows képernyő 
meghajtó programját a VGA.DRV állományt nyi- 
tottuk meg, és az ablakok kirajzolásánál használt 
bittérképeket kikerestük és módosítottuk, így saját 
Windows felületet kaptunk. Mielőtt valaki a 
nyomunkba ered ne feledkezzen meg a kötelező 
óvatosságról, módosítás előtt a file-okról készítsen másola- 
tot. Az RWS igazi felhasználási területe természetesen az új 
alkalmazások erőforrásainak elkészítése. Az új erőforrás 
készítésekor először a tipusát kell kiválasztanunk. 
Szerkeszthetünk erőforrásleíró file-t, kurzort, ikont, fontot, 
bittérképet. Ezután rögtön a megfelelő szerkesztő ablakba 
jutunk (2. 3. 4. ábra). Az eszköz palettákról egérrel 
választhatjuk ki a szükséges eszközt vagy erőforrást, mint a 
Windowsos rajzprogramokban. A megfelelő helyen leejtve, és 
kétszer rákattintva megnyílik a leírásukhoz szükséges 
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dialógus ablak. Az erőforrásokat a programon belül tesztel- 
hetjük is. A munka végeztével az eredményt lehetőleg RC 
kiterjesztésű szöveg file-ba mentsük. Ez lehetőséget biztosít 
az utólagos finomításokra, módosításokra. Egy ilyen RWS 
erőforrásleíró szövegfile-t láthatunk az 1. listán. 

Látható, hogy egy-egy erőforrás leírása az erőforrás meg- 
nevezéséből, a rajta lévő feliratból, esetleges módosító 
jelzőkből, az esetleges koordinátákból és az azonosító szám- 
ból áll. Ezt az azonosító számot használhatjuk fel a Windows 
programban az erőforrás azonosítására. 
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5. Akár más ablakozós rendszereket is utánozhatunk. 
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4. ábra Dialógus ablak készítése. 
1. lista Az erőforrás szerkesztővel készült RC file. 


RTGABLAKMENU MENU 
BEGIN 
POPUP "éFile" 
BEGIN 
MENUITEM "Új ", 102 
MENUITEM SEPARATOR 
MENUITEM "Megányit...", 22 
MENUITEM "8Ment", 23 
MENUITEM "Ment új négven...", 24 
END 


POPUP "ESzerkeszt 

BEGIN 
MENUITEM "8Új diagram... ", 218 
MENUITEM SEPARATOR 
MENUITEM "8Háttér..", 201 
MENUITEM "Háttér gTőrlés", 240 

END 


MENUITEM "tagNévjegy...", 18 
END 


DEMODLG DIALOG 249, -77, 193, 131 
STYLE DS MODALFRAME / WS. POPUP [ WS. VISIBLE [ WS. CAPTION 
IWS. SYSMENU 
CLASS "BorDig" 
CAPTION "Diagram tipus" 
FONT 8, "Hely 
BEGIN 
CONTROL"OK, 1, "BorBt", 1 [ WS. CHILD / WS. VISIBLE 
I WS. TABSTOP, 145, 91, 36, 24 
CONTROL "Cancer", 2, "BorBtrv, 0 [ WS. CHILD ] WS. VISIBLE 
I WS. TABSTOP, 145, 53, 36, 24 
CONTROL "Diagram tipus: , 206, "BorShade", BSS GROUP 
I WS. CHILD / WS. VISIBLE ] WS. GROUP, 10, 7, 170, 12 
CONTROL "Grafika" , 205, "BorRadio", BS. AUTORADIOBUTTON 
I WS. CHILD [ WS. VISIBLE [ WS. TABSTOP, 66, 8, 42, 8 
CONTROL "Oszlop, 203, "BorRadio", BS. AUTORADIOBUTTON 
IWS CHILD [ WS VISIBLE, 108, 8, 40, 8 
CONTROL "Paner, 204, "BorRadio", BS. AUTORADIOBUTTON 
I WS. CHILD [ WS. VISIBLE, 145, 8, 33, 8 
CONTROL "€Tájolás", 204, "BorShade", BSS GROUP [ WS. CHILD 
I WS VISIBLE, 10, 29, 170, 13 
CONTROL Vízszintes", 207, "BorRadio", BS AUTORADIOBUTTON 
I WS. CHILD [ WS. VISIBLE, 67, 30, 51, 11 
CONTROL "Függőleges" , 208, "BorRadio", BS. AUTORADIOBUTTON 
I WS. CHILD [ WS. VISIBLE, 131, 30, 50, 10 
LÍSTBOX 209, 10, 55, 95, 70 


END 
ICON 4 ICON "tex.ico" 
BITMAP 1 BITMAP "life.bmp" 
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Digitális [/D kártyák 
programozása 


A mai Pc-n zömmel irodai, ügyviteli alkalmazások, játékok futnak, de néhány ma még nem túl 
elterjedt hardware elemmel kiegészítve a Pc másra is képes. Lapunk ezen hardware elemek 
programozásáról indít sorozatot. Első két részben a digitális [/D kártyák programozását 
ismertetjük. 


A digitális I/O kártyákat elektromos berendezések be-, és 
kikapcsolására, be-, vagy kikapcsolt állapot ellenőrzésére, 
külső eszközök vezérlésére használhatjuk. 
Megjelenésüket nézve normál Pc-s bővítő kártyák több- 
nyire 8 bites ISA busszal. A be-, ill. kimeneti jel többnyire 
TTL szintű, ha nem az, akkor védeni kell a számítógépet 
az esetleges túláramoktól. Néha a külvilágot kell védeni a 
számítógéptől, például robbanásveszélyes környezetben. 
A védelmet opto-csatolós, relés leválasztással oldják meg, 
terjednek a szilárdtest-relés megoldások. Kis áramok és 
kevés csatorna esetén a leválasztást ráépítik a kártyára, 
más esetekben a gépen kívül helyezik el és szalagkábellel 
csatlakoztatják a kártyához. Egy kártyán 8-tól 144-ig [/D 
vonal található /mindig nyolc egészszámú többszöröse/, 
sokszor egyéb áramkörök /pl. számláló időzítő, analóg 
érzékelők/ társaságában. Működés és programozás szem- 
pontjából kétféle kártyát ismerünk: amelyik megszakítást 
generál és amelyik nem. A megszakítást nem generáló kár- 
tyák programozása nem más, mint egy kártyafüggő 
portcím írása, olvasása, IN és OUT utasítással. A 
portcímet a kártyán kapcsolókkal vagy jumperekkel 
választhatjuk ki. 


Szokásos címtartományok /hexa/: 


200 -277 
300 -377 
380 -3AF 
3C0 - 3CF 
3E0 - 3EF 


A portra byte-okat írunk ill. onnan byte-okat olvasunk, 
így egyszerre nyolc csatornát írunk vagy olvasunk. A byte- 
okat nekünk kell bitekből összeállítani vagy olvasáskor a 
byte-ot bitekre bontani. Egyes kártyáknál írás vagy 
olvasás előtt be kell állítani a szükséges üzemmódot, 
másoknál nem. Az üzemmód-beállítás egy un. inicializáló 
portra küldött inicializáló paraméter írásából áll. Erre 
vonatkozóan a kártyához kapott leírásból tájékozód- 
hatunk. A megszakítást generáló kártyák lehetőséget biz- 
tosítanak eseményvezérelt programok írására, háttérben 
történő monitorozásra anélkül, hogy a csatornákat 
folyamatosan le kellene kérdezni. Az egyes csatornákhoz 


/vagy csoportokhoz/ prioritási szinteket rendelhetünk, 
letilthatjuk őket. Több megszakítást kérő csatorna esetén 
megszakítás-maszkot haszálhatunk. Ez azt jelenti, hogy pl. 
nyolc csatorna esetén a maszk byte adott bitjéhez rendelt 
csatornáról engedélyezett a megszakítás ha a bit nulla, 
egyébként tiltott. 

A generált megszakítás általában IRO 2 - 7. 

Ebben a cikkben a hagyományos digitális inputkártyával 
történő háttér-monitorozásra mutatunk példát. 

A megszakítást generáló kártyák programozására egy 
konkrét alkalmazási példán keresztül még visszatérünk. 
Az ismertetett C nyelvű program használható szerviz 
célra vagy egyszerűbb feladatok figyelésére. 

A program rezidensen bent ül a memóriában és másod- 
percenként 18-szor megkapja a vezérlést az lc /hexa/ 
interrupton keresztül. 

Ha kell, inicializáló jelet küld a vezérlő portra, majd olvas- 
sa az adott címen levő portokat. A kapott értékeket bitekre 
bontja majd és egy stringbe írja, végül kiírja a stringet a 
színes karakteres képernyőre. A program nem vizsgálja 
saját példányainak létét a memóriában, onnan eltávolítani 
csak külső programmal, vagy a gép újra indításával lehet. 
Kiiratásnál nem figyeljük az elektronsugár visszafutását. 
A közölt listát bárki szabadon módosíthatja, az említett 
szolgáltatásokkal kiegészítheti, de számolnia kell az erő- 
forrás-igények ugrásszerű növekedésével. A programot 
lehetőleg COM formátumra fordítsuk. Turbo C 2.0 -val 
fordítva 8560 byte méretű programot kapunk, ami 
futáskor kb. 10 Kbyte helyet foglal a memóriából. 

Egy példa az alkalmazásra: 

Advantech PCL-721 típusú kártyával monitorozunk. 


Báziscím 7 200h 
Initport -— Báziscím t 6 , 
paraméter z0 

Csatorna szám — 32 


Parancssor: RSBM 200416011631 PCL - 721 
Az eredmény a képernyő tetején jelentkezik. Az inaktív 
csatornák kék alapon szürke, az aktív csatornák fehér 


alapon piros színnel jelennek meg. 
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FT" Rezidens egysoros bitmonitor "/ 
Ta "7 
PF ————— — rsbm.c ————— "I 


ttinclude cstdio.h: 
finclude cdos.h2 


int hexatoi (char"); 
static void interrupt ("oldtimer)(void); 
static void interrupt newtimer(void); 


char sor[160], bit, cb[5]; 
int basel,In,i,j,a,c,num[8],r,o,p,e,h,v -0xb800; 


void main(argc,argv) 
int argc; 
char targv[ ]; 


if (argc -— 1) 


( 
puts (" REZIDENS EGYSOROS BITMONITOR?"); 


puts ("Indítás: In"); 
puts ("RSBM I[startcím] [portszám] [sor] [initport] 
[initparam] [szín1] [szín2] [cimkejm"); 
puts ("startcim - első port címe hexadecimálisan "); 
puts ("portszám- az egy sorban kijelzett 8 bites por- 
tok száma /max 7 8/ "); 
puts ("sor z a képernyő hányadik sorában 
történik a kijelzés"); 
puts (" initport 5 az inicializáló port relatív 
távolsága startcímtől"); 
puts ("initparam- az inicializáláshoz az initportra 
írandó paraméter"); 
inaktívszín "); 
aktívszín "); 
a sorban feliratot 
helyezhetünk elln"); 
puts ("Paramétert elhagyni csak a végéről lehet. "); 
puts ("A gép teljesítményétől, a rendelkezésre álló 
memóriától függően "); 
puts ("egyszerre több példányban és különböző 
paraméterezéssel is futhat."); 
puts ("Futásakor 10 Kb. memóriát használ 
példányonként."); 
b 


ifr(argc 27 2) 
( 


puts ("szín1 
puts ("szín2 
puts ("cimke 


basel - hexatoi(argv[1]); 

if (argc 57 3) c — atoi (argv[2]); 

else c 4; if(c28) c- 8; 

if (argc 57 4) In -— atoi (argv[3]); 

else In — 1; 

if (argc 57 6) ( o - atoi (argv[4]); 
p — atoi (argv[5];) 

if (argc 5- 8) ( e -— atoi (argv[6]); 
h - atoi (argv[7]);) 

else (e-23;h-116;) 


for (i - 0 ; ic-80 ;itt) 
( sor [27i] "5 sor [27181] 5 h;) 


sprintf(cb, "904X" (basel)); 
for(i- 0 ; ic4; itt) sor[2"i 42] — cb[i]; 
iz 0; 
if (argc 2-9) while(argv[8]([i]) 

( sor [27i412] — argv[8]T[il]; ít-t;) 
for (j - 0 ; jcs(c-1) ij) 

si 


for (i — 8 ; i20 ;i—) 
sor[158 -18"e 4 18"j42"i]J-i470; 
) 
oldtimer - getvect(0x1c); 
setvect(0x1c, newtimer); 
keep (0,600); 
) 
, 


int hexatoi(char "szoveg ) 

( 

int szam - 0; 

inti - 0; 

for(izo; (szoveg[i]j2-"0" 8.8. szoveg[i]jc5"9") II 
(szoveg[i]2-"a" 8.8. szoveg[fijszf) II 
(szoveg[i]2-—7A" 8.8. szoveg[ijcs—F") ; itt) 

1 

if (szoveg[i]2-"0" 8.8. szoveg[i]jc—"9)szam - 16"szam 

4 szoveg[i] 70" ; 

if (szoveg[i]j2-"a" 8.8. szoveg[ijcsf)szam - 16"szam 

4 szovegl[i] -at 10 ; 

if (szoveg[i]j2-—"A" 8.8. szoveg[ijc-"F)szam -— 16"szam 

4 szoveg[i] -7A"t 10 ; 

l 

return(szam); 


) 


static void interrupt newtimert() 


(oldtimer)(); 
if (r —— 0) 
( 
rz1; 
if (0) outportbí(basel t o , p); 
for (j — 0 ; jcz(c-1) ;jtt) 
( 
numlj] - inportb(basel-j); 
numl[j] - numlj]ss8; 
for (i — 8 ; i20 ;i—) 


bit - (((numl(j)] 8. 0x8000)); 
a-(bit?e:h); 

sor[159 - 187e t 18"jt2"ijsa; 
numl[j] - numfj] cct; 


for (i - 0 ; ic160; itt) 
pokeb(v,(In-1)"160--i, sorfi]); 
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Aki nem olvasta a  Compfair 
próbaszámban az első részt, az is 
hamar behozhatja lemaradását, 


mivel az előző rész forráslistáit meg- 
találja a lemezen. Ezek tulajdonkép- 
pen a video inicializáló, rgb beállítása, 
képernyőtörlés, — egy billentyűre 
várakozó rutin és egy wait rutin. 


A játéktér felépítése: 


Mivel a teljes játéktér nem fér ki a képernyőre, ezért 
azt a klasszikus megoldást választottam, hogy felosz- 
tottam a játékteret megfelelően kis darabokra, amit 
már meg lehet jeleníteni. A "megfelelően kis" méret 
meghatározása egy játék megírásánál nagyon 
fontos. Itt dől el minden. Korlátaink csupán az a 
számítógép, amelyikre írjuk a programot, és saját 
képességeink, ha őszinték akarunk lenni. Tehát 
figyelembe kell venni a gép sebességét, a mi 
esetünkben megfelel egy 286-os is. Ennek függ- 
vényében meghatározhatjuk azt az adatmennyiséget 
amit mozgatni kívánunk a képernyőn. A mi 


esetünkben elég egy 286-os sebessége, mert egy 
időben 4 db mozgó figura van. Ez összesen 1440 
byte mozgatását jelenti egy időegység alatt. Egy idő- 
egység az az idő ami alatt az összes változtatást és 
vizsgálatot el kell végezni. Ha jó gyorsra írjuk meg a 
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rutinokat, akkor nem lesz gondunk a játék folyama- 
tosságával, és marad időnk a képernyő szinkro- 
nizálására. Erre feltétlenül szükség van már egysze- 
rű játékoknál is. A képernyő felépítése egy 16x10-es 
négyzetháló, melynek elemei határozzák meg az 
éppen kirajzolandó terepet. Így ha elosztjuk a 320-at 
ami a képernyőnk vizszintes felbontása 16-al, akkor 
megkapjuk egy téglatest X irányú felbontását, ami 
pontosan 20. Mivel a képernyő alsó részét 
használjuk a magic power és a pontszám megje- 
lenítéséhez, ezért függőlegesen csak 180 pixel 
magas a 10 tégla magasságú terep. Tehát 
180/10-18 pixel magas egy téglatest. Mivel a 
terepeket előre megterveztük, gondoskodni kell az 
eltárolásukról. Ez önmagában nem probléma, mert 
rendelkezésünkre áll egy egész adatszegmens, 
amibe 65536 byte-ot tudunk eltárolni. Ha abból 
indulunk ki, hogy 1 byte elég egy tégla tárolására, 
hiszen feltételezzük, hogy nem lesz több téglafajta 
255-nél, akkor egy képernyőnyi terep leírásához elég 
16x10, azaz 160 byte. Fontos, hogy ahol nulla van 
oda nem kerül tégla, az lesz az a terület ahol a mi 
figuránk, meg a 3db sprite mozogni fog. Ha meg- 
nézzük a kész exe-t, akkor láthatjuk, hogy se a fig- 
uránk, se a spriteok nem lépnek bele a téglákba, 
hanem az üres mezőkben maradnak. Később látni 
fogjuk, hogy rengeteg szerepe van ennek a momen- 
tumnak. Saját figuránk mozgását például aszerint 
engedélyezzük vagy nem engedélyezzük, hogy ott 
ahova éppen lépni akar mit találunk a képernyőn. 
Tehát ha nem üres az előtte lévő byte akkor ott biz- 
tosak lehetünk, hogy ott tégla van. Az előzőekből kiin- 
dulva a terepek megtervezésénél máris 2 aranysza- 
bályt be kell tartanunk. Az egyik az, hogy ahol nincs 
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tégla oda mindig O-t kell tenni a képernyőn. Ezt úgy 
érjük el a terep kirakásánál, hogy ahol a terep- 
leíróban O van, oda egy olyan téglát rakunk a 
képernyőn, ami csak nullából áll. A másik az, hogy a 
tégla grafikus adataiban nem szerepelhet a 0. Ha 
feketét akarunk használni, akkor egy másik palettát 
kell választani, aminek RGB-je hasonlóan fekete. 

Egy terep teljes leírása tartalmazza még a begyűj- 
tendő kincsesláda X,Y koordinátáit a képernyőn, és 
tartalmazza a 3db sprite adatait, sorban. Egy sprite 
adatrekordja a következő. 

X,Y koordináta - word, 

Xrelatív, Yrelatív - byte és az elmozdulását jelenti 
pixelben a spritenak. Előjeles érték tehát, az 1-1 és 
a -1-129. 

Max lépés - byte: ez határozza meg, hogy összesen 
hányszor lép egy irányba a sprite. 

Spriteszám - byte: ez határozza meg, hogy melyik 
sprite kerüljön oda. 

Tipus - byte: ez határozza meg, hogy milyen tipusú a 
sprite (2 tipust különböztetünk meg O, 1). 

Ha most összeszámoljuk egy teljes terepleíró 
hosszát, akkor láthatjuk, hogy 191 byte hosszú, 
ami egész jó. A jelenlegi 16 db terep tárolásához 
elég 16x191-3056 byte. A program jelenlegi 
állapota megenged 256 db terepet amiből mi csak 
16-ot terveztünk meg. Később bárki tervezhet még, 
vagy a már meglévők helyett készíthet újat. A 256 
terep is csak 48896 byte hosszú. 


A TerepKi procedúra elmélete: 


A TerepkKi procedúra elmélete pofon egyszerű, és a 
hosszától sem kell megijedni. Először is beolvassa, 
hogy hanyadik terepet kell kirajzolni a terepszám 
memúóriaváltozóból. Ezt a számot megszorozza 191- 
el, így kap egy számot amit hozzáad a legelső terep 
legelső byte-jának az offsetcíméhez. Ezáltal megkap- 
tuk azt a címet, ahonnan elkezdhetjük felolvasni az 
aktuális terep adatait. Azt már tudjuk, hogy ez 160 
db byte, ami a terep tégláit tárolja olvasási irányban. 
Tehát ha elkezdjük felovasni sorban a 160 db byte- 
ot, akkor tulajdonképpen balról jobbra és fentről 
lefelé haladva megkapjuk a kirakandó téglák számát. 
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Ezután következik egy 10x16-os kettős ciklus, ami 
tulajdonképpen úgy néz ki, hogy egy 16-os ciklust 
10-szer hajt végre. Ez azért jobb mintha egyszerűen 
egy 160-as ciklust írtam volna, mert így nem kell 
vizsgálni, hogy mikor érek egy sor végére. A belső 
ciklusmag a döntő. Itt olvasom ki a tégla számát, és 
állapítom meg a téglaszám alapján a kirajzolandó 
tégla adatainak címét a memóriában. Ezt is megold- 
hattam volna egyszerűen szorzással, tehát a tégla 
sorszámát megszorzom egy tégla adatainak a 
hosszával, de akkor ragaszkodni kellett volna a 
méretazonossághoz, és az adatok sorrendiségéhez 
a memóriában. Bár a méretazonosság a program- 
ban megvan, én inkább a hosszabb kódot igénylő, de 
még így is tökéletesen gyors egyenkénti vizsgálatot 
választottam. Itt van időnk, mert ha belegondolunk 
ez a rutin minden terep elején fut csak le, és csak 
egyszer. A végleges TerepKi procedúrában ezután 
még beolvassa a kincs X,Y koordinátáit, utána meg 
a 3 sprite fent ismertetett adatait a saját rendszer- 
változóinkba. Erre azért van szükség, mert azok a 
rutinok amelyek mozgatják a sprite-kat, mindig innen 
olvassák ki azokat az adatokat amelyekre szükségük 
van. Így nem kell minden egyes spritehoz külön 
megírni azokat a rutinokat, amelyek kezelik a 
mozgását. 


Következő rész tartalma: 


A következő részben teljes egészében átvesszük a 
spriteok méreteit, adatait, hogy kell megrajzolni, 
kirakni és nem utolsósorban mozgatni őket. Szó lesz 
a közös paletta használatáról, és a rendszerváltozók 
teljes körű ismertetéséről. Így az első három rész 
ismeretében ezek a rutinok teljesen áttekinthetőek 
lesznek. 


A következő oldalon megtaláljuk a forrásokat. 


Szalay Zsolt 
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Terepki Proc 
push cx 
push si 
push di 


mov . alterepsz 
mov — cIi,191 
mul. cl 


mov  sioffset terepek 


add  siax 


mov — di, 
mov — cx,10 


push cx 
mov — cx,16 
mov . al,ds:[si) 
ecmp  al,! 
je tegla2 
emp  al,2 
je tegla3 
emp  al3 
je tegla4 
ecmp  al4 
je tegla5 
ecmp  al5 
je tegla6 
emp  al,6 
je tegla7 
emp al, 
je tegla8 
ecmp  al8 
jne  te7 
jmp  tegla9 
cmp  al9 
jne  tc6 
jmp  tegla10 
te6: emp  al,10 
jne tc5 
imp  teglat1 
tec5: emp al,11 
jne  tc2 
jmp  tegla12 
te2: emp  al,12 
jne tc3 
jimp  tegla13 
te3: emp al,13 
jne tc4 
jmp  tegla14 
te4: ecmp al,14 
jne  tegla1 
jmp  tegla15 
teglat: push si 
mov — sioffset tegl0 
call . spritem 
Pop. si 
jimp . ttov 


tegla2: push si 
mov — sioffsettegl1 
call . spritem 
pop. si 
imp  ttov 


tegla3: push si 
mov . si,offset tegi2 
call . spritem 
pop. si 
jmp . ttov 


tegla4: push si 
mov — si,offset tegi3 
call . spritem 
pop. si 
jmp . ttov 


tegla5: push si 


; Aktuális 
terep adatainak a cime 


; Tégla1 kirakása 


; Tégla2 kirakása 


; Tégla3 kirakása 


; Tégla4 kirakása 


mov — sioffíset tegl4 
call . spritem 

Pop. si 

imp  ttov 


tegla6: push si 
mov — sioffset tegl5 
call . spritem 
pop. si 
imp . ttov 


tegla7: push si 
mov . si,offset tegi6 
call . spritem 
pop. si 
imp . ttov 


tegla8: push si 
mov — sioffset tegl7 
call . spritem 
pop. si 
jmp . ttov 


tegla9: push si 
mov — si,offset tegl8 
call . spritem 
pop. si 
jmp . ttov 


tegla10:push si 
mov — sioffset tegi9 
call . spritem 
Pop. si 
imp . ttov 


tegla11:push si 
mov — sioffset tegl10 
call . spritem 
pop. si 
jimp  ttov 


tegla12:push si 
mov — sioffsettegl1t 
call . spritem 
pop. si 
imp  ttov 


tegla13:push si 
mov . sioffset ttegl12 
call . spritem 
pop. si 
imp . ttov 


tegla14:push si 
mov — si,offsettegl13 
call . spritem 
pop. si 
imp  ttov 


tegla15:push si 
mov — sioffsetteglt4 
call . spritem 
pop. si 
imp  ttov 


ttov: inc si 
add  di,20 
loop. tc000 
jmp . ttcc 
tc000: jmp  tc0 
ttcc: add  di,5440 
pop cx 
loop tcib 
jmp — tcetov 
te1b: jmp — tci 


tetov: mov — ax.Ssi] 
mov — kincsxax 


; Tégla5 kirakása 


; Tégla6 kirakása 


; Tégla7 kirakása 


; Tégla8 kirakása 


; Tégla9 kirakása 


; Tégla10 kirakása 


; Tégla11 kirakása 


; Tégla12 kirakása 


; Tégla13 kirakása 


; Tégla14 kirakása 


; Ha üres a tégla 


; kincs koordinátái 





ax, [si2] 
kincsy,ax 
al,1 
kincsj,al 


ax lsit4] 

nyi xax 

ny1 xer,ax 
ax [si6] 

ny1 yax 

ny1 yerax 
al,(si8] 

ny1 xr,al 
al,(sir9] 

ny1 yr,al 
al,(si10] 

ny1 mlep,al 
al, [sir11] szám 
ah ah 

cx,2880 

cx 

nyi cim,ax 
al,[sit12] tip 
ny1. tip,al 


ax [sit13] 

ny2 xax 

ny2 xerax 

ax [sit15] 

ny2 y,ax 

ny2 yer,ax 
al,(si17] 

ny2 xr,al 
al,(si18] 

ny2 yr,al 
al,(si19] 

ny2 mlep,al 
al,(sit20] szám 
ah ah 

cx, 2880 

cx 

ny2 cim,ax 
al,(sir21] tip 
ny2 tip,al 


ax [sit22] 
ny3 x,ax 
ny3 xer,ax 
ax [sir24] 
ny3 y,ax 
ny3 yerax 
al,(sit26] 
ny3 xr,al 
al,[si27] 
ny3 yral 
al,[si28] 
ny3 mlep,al 
al,[si29] szám 
ah ah 
cx,2880 
cx 

ny3 cim,ax 
al,(sit30] tip 
ny3 tip,al 
al,al 

ny1. lep,al 
ny2 lep,al 
ny3 lep,al 
ny1 fazal 
ny2 fazal 
ny3 fazal 
di 

si 

cx 

mpoki 

poki 


Egy terepleíró rekord adatszerkezete a forrásfile-ban: 


terepek 
elet LT TAT 
, 1,1,1,0,0,0,0,0,0,0,0,0,0,1 
1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,1 
1,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0 
1,0,0,0,0,1,1,1,0,0,0,0,4,0,0,0 
1,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0 
1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1 
1,1,1,0,0,4,0,0,0,0,0,0,0,1,1,1 
,1,1,1,1.0,0,0,0,0,1,1,1,1 
AR TA 


240,18 :kincs(x,y) 
70,36 iny1(x,y) 
0,2 s:ny1(xryr) 
45 snyt(m lep) 
1 iny1(sz m) 
1 :nyt(tip) 
195,54 :ny2(x,y) 
03 :ny2(xryr) 
30 sny2(m lep) 
9 iny2(sz m) 
o :ny2(tip) 
:ny30xy) 
:ny3(xr,yr) 
:ny3(m lep) 
iny3(sz m) 
:ny3(tip) 


SZÁTÁSTECII[ KA KTZ v 


- Számítógépek tetszőleges összeállításban 


- EPSON, Star és HP nyomtatók 
teljes választéka 


- NOVELL hálózatok és rendszerek építése 
és telepítése 


- SZOFTVEREK teljes választéka 
installálással, oktatással 


- Különleges minőségű leporellók 
széles választéka. 


Hívjon, kérje akciós árainkat ! 


1092 Budapest, Ráday u. 47. 
tel./fax: 217-1251 
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PC/104 


Ab SZNAVIOS 


er 


Egy technológiai újításnak köszönhetően a Pc világ új területekre törhet be, 
az asztali alkalmazásokon túl az ipar és a háztartások gépeiben élhet tovább. 


Az elmúlt tíz évben a PC-k igen elterjedté és népszerűvé vál- 
tak, ellepték az irodákat, betörtek a lakásokba is. Ma a 
számítógépek fejlődése soha nem látott tempóban halad előre. 
Egyre többen ismerkednek meg a kezelésével és sokan a 
működésével is. A nagytömegű gyártás következtében az 
árak, különösen ha a teljesítményhez viszonyítjuk, rohamosan 
csökkennek. A technika, a mikroprocesszorok és egyéb 
csipek rohamos fejlődése a computerek méretének és ener- 
giafelhasználásának igen jelentős csökkenését eredményezte. 
A relatív olcsóság, a széles körben ismert felépítés, a 
szoftverek elterjedtsége, szinte szabványossága olyan 
előnyök, melyeket a fejlesztők nem hagyhatnak figyelmen 
kívül. Így egyre több területen ahol valamit mérni, irányítani, 
vezérelni kell,  Pc-arhitektúrát alkalmaznak. Háztartási 
gépekbe, orvosi és laboratóriumi műszerekbe, robotokba 
építenek Pc-t. Ezzel jelentősen csökkenthetik a fejlesztési 
időt, a költségeket és a kockázatot, hiszen egy ismert, bevált 
utat járnak. A Pc kifejezés hallatán a többség egy asztali 
számítógépet, egy fémládát, egy monitort képzel maga elé. 
Ebben a formában az esetek többségében a méretei miatt nem 
alkalmazható. A rezgéseket, a vibrációt rosszul tűri, szűk 
hőmérséklet-tartományban használható. Máskor az okoz 
problémát, hogy a Pc-alkatrészeket senki sem minősíti sem 
megbízhatóság, sem a várható élettartam szempontjából. Mit 
volt mit tenni, a fenti hiányosságokat megoldva újra kellett 
tervezni a Pc-t úgy, hogy a kompatibilitás ne sérüljön. Az új 
Pc-t a technikailag lehető legkisebbre építették, a Pc-buszt 
masszív tűs csatlakozókra vezették ki. A bővítő kártyákat 
azonos méretűre tervezték, azonos megbízható 64 -- 40 pon- 
tos tűs csatlakozókkal, így egyszerűen egymásba dughatók. 
Az új rendszer a csatlakozó tűk számáról a PC/104 nevet 
kapta. A modulok CMOS technológiával készülnek, így 
kevés energiát igényelnek. A kártyák mérete egységesen 

96 x 91 mm. A kártyák egymásba helyezésével önálló 
felépítmények hozhatók létre. A modulok közötti távolság 
ilyenkor 15 mm. Egy három modulos felépítmény méretei pl: 
9.1 x 9.6 x 5 cm. A PC/104 tökéletesen eleget tesz a ha- 
gyományos PC-k szoftver-, és hardver követelményeinek, 
1992-től szabványnak tekinthető. A hagyományos Pc-kártyák 
mindegyike létezik ebben a méretben is. Gyártók tucatjai 
készítenek CPU, SVGA, Arcnet, Ethernet, modem és fax-kár- 
tyákat. A szoftvert általában ROM-diszkről futtatják, ezt néha 
ráépítik az alapkártyára, de nagyobb kapacitásigény esetén 
külön kártyán helyezik el. Háttértárként jellemző a PCMCIA 


kártyák használata. A külvilággal való kapcsolattartásra 
rengeteg lehetőség adódik. Több tucat digitális io kártya, 
analóg mérő-, és vezérlő kártya, időzítő és soros (RS-485) 
kártya kapható. Egyre bővül az apró alkatrészek, kábelek, 
dobozok, tápegységek választéka is, bár jelenleg ez a rend- 
szer gyenge pontja. A felhasználás általában úgy történik, 
hogy az egymásba dugott modulokból épített Pc-t 
közvetlenül beépítik a vezérelt gépbe. A modulok alkal- 
mazhatóak alkatrészszerűen is. Ilyenkor a modulokat 





1.ábra Egy számítógép szendvics. 


valamilyen - általában a felhasználó által tervezett - alapkár- 
tyában helyezik el, amely más egyéb, az alkalmazásnak 
megfelelő áramköröket tartalmazhat. A PC/104 terjedésének 
bizonyítéka, hogy a más logikát követő hagyományos ISA 
buszos processzor kártyákon is feltűnt a PC/104 csatlakozó. 
Az egymásba dugható modulok kíválóan alkalmasak arra, 
hogy többféle modult helyezhessünk ugyanarra a helyre. Ez 
könnyebbé teszi a készülék későbbiekben való tovább- 
fejlesztését, valamint lehetővé teszi ideiglenes modulok 
használatát teszteléskor, hibakereséskor. A rendszer ter- 
jedésének manapság még gátat szab az ár. Napjainkban még 
az azonos tudású hagyományos Pc-kártyák árának két- 
szereséért vehetünk PC/104 kártyát. 
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FLOPPY DRIVE 






RS-232 SERIAL 
PORT (COM2) 


1MB SOLID STATE DISK 


2MB DRAM 


IDE INTERFACE 


A 2. ábrán egy tipikus PC/104 processzor kártyát láthatunk, 
ez felel meg a normál pc alaplapjának, sőt több is annál. 
Nézzük a legszembetűnőbb kölönbségeket. Abban még nem 
lenne semmi különös, hogy a CPU kártyára integrálva találjuk 
az IDE lemezvezérlőt, de ezen felül még egy 1 Mb kapacitású 
ROM is található. Erről indul az operációs rendszer és sok- 
szor az alkalmazói program is. Ez gyors és biztos indítást tesz 
lehetővé, például vírusfertőzéstől nem kell tartanunk. Ezt 
egészíti ki az úgynevezett Watchdog Timer. Ez egy olyan 
áramkör ami figyeli a pc-busz adatforgalmát. Ha egy előre 
beállított ideig nincs adatforgalom, azt hibaként értékeli, és 
újraindítja a rendszert. Ezért is fontos a gyors és korrekt 
indítás. Az alaplapon 2 Mb RAM be van forrasztva, így egy 
része RAM-lemezként használható. Operációs rendszerként 
vagy a DOS egy régebbi változata (kisebb helyet igényelnek) 
vagy egy DOS kompatibilis multitaszkos operációs rendszer 
alkalmazható (RTKernel). A kis méret ellenére elfért egy 
kétirányú párhuzamos és három soros port, két RS-232 és egy 
RS-485. Ipari környezetben szívesen használják az RS-485 
szabványú soros kapcsolatot, nagyobb távolság hidalható át 
akár két vezetékkel is. Az elektromos zavaroktól is jobban 
védett. 

Természetesen a Pc billentyűzet és hangszórócsatlakozó is 
megtalálható, az már különlegesség, hogy CGA kompatibilis 
LCD panel meghajtóját is el tudták helyezni egy 3.57-os 
lemeznél is kisebb kártyán. A csatlakozásokhoz a kis méretek 
miatt speciális kábelek, csatlakozók kellenek. 

A kártya processzora egy XT-kompatibilis 14 Mhz-en futó 
16-bites processzor. Más gyártók erősebb processzorral is 
készítenek CPU kártyát, természetesen akkor valami lemarad 
róla, vagy ahogy már említettem a CPU kártyát ISA buszos 
változatban készítik el, PC/104 csatlakozóval. Létezik 100 


PC/104 


PARALLEL PORT 


NN 


RS-485 SERIAL 
PORT (COM3) 


UTILITY 


PL ÖK ER ÉGSNERNEE B] 


AS-232 SERIAL 
PORT (COM1) 


2.ábra Egy tipikus PC/104 CPU kártya. 
Mérete : 96x91 mm. 
Fogyasztása: 1.25 W 


Mhz órajelű 486-os processzorral 64 Mbyte RAM-mal szerelt 
VESA buszos változat is. A rendszer erősségét a rendszerbe 
illeszthető . mérő-, és beavatkozó kártyák sokasága adja, 
melyek száma napról napra bővül. 


Nagy Sándor 
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NIX Rovat 


Próbaszámunkban két rövid shell programot 
ismertettünk, melyeket a nagy érdeklődésre 
való tekintettel most újra leközlünk. Az egyik a 
magyar ékezetek használatához adott segít- 
séget, a második a kurzor pozicionálására 
adott ötletet. Ezenkívül a shell használatának 
előnyeiről esett szó és shell programok írására 
buzdítottuk az olvasókat. 


Még mielőtt folytatnánk a múltkor megkezdett 
témát, néhány gondolatot fordítsunk arra, hogy 
mennyivel nyújt többet a UNIX használata. 


Az úgynevezett multiscreen funkció amely 
lehetővé teszi, hogy egyszerre több ablakban 
dolgozhassunk, nagyon jól kihasználható. Az 
egyik ablakban írjuk a programunkat, a másik- 
ban fordíthatjuk, a harmadikban futtathatjuk és 
a hibakeresést végezhetjük. Persze ez ma már 
nem nagy újság a Windows használói 
számára. Ezek felszíni hasonlóságok, az igazi 
eltérés abban van, hogy a programok futás 
közbeni kommunikációját az operációs rend- 
szer számos funkciója támogatja. Ezek prog- 
ramozókat érdeklő kérdések. A felhasználók 
szempontjából talán a legfontosabb, hogy a 
UNIX-os rendszerben dolgozók megtanulják a 
szervezett keretben való csoportmunkát. A 
rendszer keretet ad az együttműködéshez. 


Az előző részben ígéretet tettem a kurzormoz- 
gatás egy gyorsabb megvalósítására. Az ötlet 
igen egyszerű. A kurzor mozgatási utasítást 
tároljuk egy környezeti változóban. A shell és 
általában a programok többsége első fela- 
datként éppen ezeket a változókat olvassák ki, 
hogy tartalmaz e beállítást. Így a beállítást a 
program a tényleges program előtt hajtja végre. 


A leggyakoribb programozói feladat a menü 
készítés. Lássunk egy shell menü programot 
mintaként. A program megértéséhez érdemes 
kezdőknek átnézni a do és a case használatát. 





:menu program, ennek a mintájára írható a 
saját 
USAGE- usage: menu" 
ANSWER-—-" 
while true 
do 
if test "$§ANSWER"—" 
then 
ta CLEAR változót vagy a shell-ben vagy a 
.profile változóban 
tmeg kell adni 
tcat SCREEN-től SCREEN-ig kiír mindent a 
képernyőre 
cat ccSCREEN 
$CLEAR — UNIX MENU 
Number Name For 
0 Exit Kilépés 
1 vi Fájl szerkesztés 
2 — sh új shell indítása 


Add meg a menu számát, vagy DEL-t 
kilépéshez 


SCREEN 

read ANSWER COMMENT 

fi 

case S$ANSWER in 

Olexit) exit 0 ;; 

1]vi) 
echo"Add meg a fájlnevet 
read ANSWER COMMENT 
vi S$ANSWER $COMMENT 


sh;; 
echo "Ez nem megfelelő szám! ;; 


Nyomj ENTER-t ha újra látni akarod a menüt 
read ANSWER 
done 


Ebben a sorozatban a UNIX shell használóinak, prog- 
ramozóinak szeretnénk fórumot biztosítani. Lehetővé 
szeretnénk tenni gyakorlattal rendelkezőknek a tapaszta- 
latcserét és a kezdők találkozását életszagú mintákkal. 
Szívesen veszünk minden platformról forrásokat, 
észrevételeket, tapasztalatokat és kéréseket. 
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Aki már használta a UNIX shellt, annak nem kell 
bizonyítani, hogy a mai formájában rendelkezik 
ugyanazokkal a képességekkel, mint a 4. generációs 
programnyelvek. Könnyen tanulható. Rendkívül 
tömör programokat készíthetünk. Fájlok csoportjait 
kezelhetjük egyszerre. A bővítése egyszerű: saját 
shell kisügyeseink mellett, akármely a gépünkön ren- 
delkezésre álló programnyelven megírhatjuk 
kiegészítéseinket. Az awk, grep, sed segítségével 
meglepően bonyolult adatkezeléseket is meg lehet 
oldani. A fejlesztésre fordítandó idő lényegesen 
kevesebb, mint bármely más programnyelv esetén. 
Prototípusok, minták ismeretében még hatékonyab- 
bá tehető a fejlesztői munka. Annak a számára, aki 
ezt megtanulta, jártas benne, minden UNIX rendszer 
nyitott, szabad a mozgástere. Persze nem futási 
sebességrekordokat kívánunk megdönteni, de a 
gyors eredmény mindenkit kárpótol. Ne ítéljünk 
előre. A futási sebességgel kapcsolatban kellemes 
meglepetések érik a rutinos shell programozókat. A 
bonyolultabb rendszerek telepítése is shell prog- 
ramok segítségével történik. Ezek akár néhány száz 
k méretűek is lehetnek. Id Lotus 123, Wordperfect, 
Dataflex. Ne ijedjünk meg tőlük, kíváló ötlet tárnázak! 
Tanuláshoz, hibakereséshez használjuk az operá- 
ciós rendszerrel kapott kézikönyvet, vagy ameny- 
nyiben érdeklődés mutatkozik, néhány szak-könyvet 
a későbbiekben ajánlhatunk. Indítsuk ezt a sorozatot 
egy egyszerű programmal, amely a magyar 
ékezetes karakterek használatát segíti. Hasznos 
minden olyan eszközök használatában, amely az 
ASCII tábla 127 felett bizonyos kódokat saját maga 
értelmez, pl. nroff,troff. 





1:t/usr/bin/ksh 
2:4t Készült COHERENT 4.0-ra 
3:1t Magyar karakterek át és visszacsoportosítása 
4:1t 1993.aug."BECOTKft. 
5:while test $4 -gt 0 
6:do 
case $1 in 
8: -mc) arg-$1;; 
9: -ms) arg-$1;; 
10: -n") 01-$1;; 
ús -r") reg-$1;; 
KÜ ") szveg-$1;; 
13: esac 
14:shift 
15:done 
16: 
17:4t az óúís marad, a többi átalakul: 
18: 
19:cat $szvegl 
20:Itr "ötöűéáÖÜN úÉLéa" "Le áh 9ON-ZS OV 





UNIX jam 


21:Inroff $arg $01 $regl ; 
22:Itr"La á "9ON-ZST " "ötüöűéáÖÜN ŰÉLéa" 


Második programunk egy ügyes kurzor pozicionáló mód- 
szert mutat be. 

A parancssor legyen: 

$cursor sor oszlop 

A kurzor pozicionálás terminál függő, a módját meg- 
találjuk a /etc/termcap fájlban, (cm) bejegyzés alatt. 
Hozzunk létre egy CURSOR nevű környezeti változót, 
cursor ezt fogja megtalálni környezetében. Egy pc ter- 
minál részére írjuk be az alábbi sort a .profile fájlunkba. 
(NM az ESC karakter, vagy Ctrl 





export CURSOR-A[[dodv96dH 


A cursor program: 


1:4l/usr/bin/sh 

2:4t készült COHERENT 3.2-re 

3:4t 1992.maj. "BECOTKft. 

4:4 !/usr/bin/lksh, COHERENT 4.0-ra OK! 
5:4t 1993.aug. "BECOTKft. 

6:USAGE- usage: cursor sor oszlop" 
7:EUSAGE-1 

8: 

9: if test "$4" -ne 2 

10: then 

14 echo $usage 1282 

12: exit S$BEUSAGE 

18: fi 

14: 

15:echo "echo "$CURSOR" 

16:sed  "s/99./$1/ 

17: s/92.I$2Z We 


A cursor, clear, echo segítségével néhány sorban 
látványos dolgokat rajzolhatunk a képernyőre, és a read 
segítségével beolvashatjuk a felhasználó válaszait. A 
képernyőn mezőket törölhetünk a kurzor mozgatásával és 
betűközök írásával. Ezzel a módszerrel a képernyő 
színezése is megvalósítható. Ötleteket várunk. 
Legközelebbi alkalommal a cursor-nak egy továbbfe- 
jlesztett, gyorsabb változatát fogjuk bemutatni. Várjuk lev- 
eleiket, ötleteiket. Ne feledjék el megadni, hogy pro- 
gramjuk eredeti változata mely operációs rendszer alatt 
készült és lett kipróbálva. 

Berta Sándor 

tel.: 217-4578 "BECOTKft. 
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Display Hode 


í ú1Jk GIF 3 f; IST NENT] 
tud A (Tt 
ML ÖT RGB with HiColor 
APROFEJ.TIF 


BHPARJ.ARJ — BB7144 Use image data 


LA SÉG Ő 
tat d ÉG Enter Filtercoefficients 
AE Ti [4 Save filelist to PU.SLD 
hi TIF 761 pt 
Az utóbbi idők legsokoldalúbb nézőkéje m41 ; 
L rr . tál Tag file — CTJ Tag all CUJ Untag 
a német eredetű pv.exe illetve angol AZ GEES ESEN ENÉTTTT) 
FEJLECI . PCX Log Drive — [FIJ Help CESCI Exit 


nyelvű megfelelője a PVE.EXE 





A lemezmelléklet ANI alkönyvtárában található PVE.EXE az 


egyik legsokoldalúbb nézőke. Az 1.listán látható az illesztett 2.ábra A PVE képernyője 
formátumok listája. Már a megjeleníthető képformátumok j pPSEnYS) 
száma is impozáns, de ezen kívül animációkat is leját- 1.lista Illesztett formátumok 


szhatunk és MOD zene file-okat is megszólaltathatunk. Az 
összes elterjedt videokártyával működik: ATI, Paradise, 
Ahead, Video7, OAK, Chip k Technology, ET3000/4000 és 


Trident 8900 1024x768 felbontásig 256 színig. Ismeri EKEZETES tát ööslllá sát s 
8514/A, TIGA és XGA szabványokat, a 1280x1024x16/256 - JPG JPEG 8R8. 

és 1600x1280x16/256 üzemmódok is be vannak építve, de - TIF IBM és Macintosh 
kipróbálva nincsenek. Ezek szerint a szerzőnek sem megy os ÉGMÉSÉN 

jobban mint nekünk. Csodák persze nincsenek, ha túl nagy - PIC PcPaint, Pictor. 

kép-filet akarunk megjeleníteni az nem fog sikerülni, "kevés - SCx,RIX Colorix, Winrix 

a memória" üzenettel elszáll a programunk. Ezt azért lehetne - CUT Dr Halo — 

elegánsabban is. Újdonság a text file grafikus megjelenítése. Herfsudő Contásda 

Azokat a file- kat amiket kiterjesztés alapján nem ismer fel az - BMPRLE,DIB Windows 3.0,3.1 and OS/2. 
általunk megadott módon próbálja megjeleníteni. Az egy- - IMG,DTA Kontron, ZEISS 


szerű PVE indítás után filemanager ablak jelentkezik, 


paraméterrel indítva ez elmarad, és a program a paraméterben 


megadott módon viselkedik. Használhatjuk képformátumok -PCD Kodak Photo CD 768x512 

egymásba való átalakítására is az 1. lista szerint. - CVP Passport image 512x512 24 szín 
- JPG, JIF JPEG 9R6 
- JTF TIFF (JPEG tömörítéssel) 

á é ő - CEG Edsun 
1.ábra Egy kép a lemezről - GEM-IMG, XIMG GEM and Ventura Publisher, Atari ST. 

- MSP MS-Paint, Windows 2.0. 
- MAC Macintosh-Paint. 
- PIC Macintosh PICT in 1,2,4,8 BPS. 
- WPG Raster graphic 
- ICO Windows lcons. 
- PMC A4TECH Scanner. 
- SFI SIS Framegrabber. 
- EPS Encapsulated Postscript 
- RAS Sun raster file 
- VI Jovian 
- DCX FAX Multiple PCC File Format. 
- ÍM KO-23 satellite 
- SGF Starwriter 
- SAT Eumetsat 
- SCR Word capture 
- CDR,CCH Corel draw Icon 
- SKD Autosketch Icon 
- RAW 
- PNM UNIX Portable Bitmap 1,8,24 Bps 
- ACB.BBM IFF Brushes and ACBM Files. 
- DAT Framegrabber Video 1000/2000 
- FLM Screenmachine FAST-Electronic. 
- AVI Video for Windows 
- FLI Autodesk Animator 
- FLC Autodesk Animator 
- VM Videomachine FAST-Electronic. 
- ANI IFF animation files. 
-DL DL animations run in realtime. 
-GL 
- TXT.DDOC,BAT,HLP. Text 
- ANS ANSI 80x25 
- MOD Amiga zene file 
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e Mindowsszásers 





"Resource workshop 
"Paint Shop Pro 
Programkezelő 


TenPius 


Sokan nem szeretjük a Windowst, de nem is 
nélkülözhetjük. Mit tehetünk mást, javítgatjuk. 





A lemezmelléklet TMPLUS alkönyvtárában találjuk az önki- (Gszt To ] hi Ej ai Task "—— Cancel i 





csomagoló TMPLUS .EXE filet. Egy üres könyvtárban elin- 
dítva az eredményt másoljuk a WINDOWS könyvtárba. Ezek I rzi! 
be a] 
I 








után a SYSTEM.INI file boot szekciójában helyezzük el a lel e ] 
TASKMAN.EXE-TMPLUS.EXE sort. Ez után a j; ! ] ÍTSHSESÉT E ] 

! un ! rowse ! Delete Item 
Ctrl-Esc billentyű kombináció leütése után az 1.ábra szerinti Au je ki —u-umed 2. ] 





blak jelenik kott task-. helyett. a 
JE KENT TE E ét e eg tl 1.ábra A TMPLUS ablaka a parancssorral. 


Azonnal látszik az újdonság a menü és a parancssor. Egy régi 


DOS felhasználónak valószínűleg j ú a 8 
ez utóbbi az érdekesebb tetszés szerinti 8 Ki YiTeás ts 

programot indíthatunk, és a DOS külső [8 ja ETSSS T 

parancsait futtathatjuk. A belső paran- Filenév: — set E Az élő könyvtár: 
csokról és a kimenet átirányításáról le " !spec Ti § k 
kell mondanunk. A file-ok indítását FESZ SK TE l Mégsem j 
megkönnyíti a file-kereső ablak. Az " ! gort exe ! Fő utál 

utoljára használt parancsokat legördülő I 








menüből választhatjuk ki. Ezeket a elstksa E backpack 
parancsokat a program egy szövegál- VERSE 
lományban tárolja így könnyen szer- jrzánrigáségzal § 
keszthetők. thegrab.exe 


A másik újdonság a felső menüsor ! ! turbo.exe 

ahonnan Windows programok unmountc.exe 

indíthatók illetőleg a Windows alap- eaekete tség Í 
vető funkciói vezérelhetők. Ami miatt -4pacex6 eze - : 
ez valóban használható: a menü egy " bistázandó filetípus: 
szerkesztő ablak segítségével tetszés ! JExecutable Files 
szerint módosítható szerkeszthető. A [.. stét 
menüt a program egy bináris állomány- 



























































ban tárolja, kézzel ne piszkáljuk. 2.ábra Fent a file-kereső, lent a menűszerkesztő ablak. 
— SRE E VEK a DIA SZA ÁK E EL KK] x ] 
Test Menu § b ÖSS tnek se NR SÉ ÁRT, — Help / 
tMain al Edit" CT SelectedMenultem mm ! 
tPrint Manager f gat 5 ] 
tFile Manager 9 Delete J. Menu Item flpdate ] 
Met e —— 11 ne Elazail ih. 
ontrol Panel JET áeátekázez sé sze ss lébe ! 
Pif gEditor Cut ] , eNotepad ká je ! 
£System File Editor —— ] ! 
FEE HEEEE EHE EE EE EEEHE SL; ! Command 
táccessories I] faste fógzelsstt ett E ASSE s 
tNotepad ] eg. (notepad Browse I 
twrite Tés JE 
£Paintbrush (7 Insert ! Working Directory ! 
Seeeeeeeemneneee —- J FESS EE E ! 
Catlendar Sub Menu Két Lle et tés vel esttt ] (Browse ] ! 
Cardtfile mm nzz Options I 
Cloctk TESZ S VáS A Separator I ész 
- Vesse cé tet et Ses 
tCalculator És ! 
TEETEEEEEEEEEEEEEEH Item ! egi I 
tGames e I Í 7 
$Solitaire aj! e ] [0 Muit ] 1 ok ] 
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FRODASZAMBÓL 


GIF fejléc olvasása 


A következő C nyelvű program a GIF 87/a 
formátumú file fejlécéből kiolvassa a kép 
adatait és kiírja a képernyőre. 


T gi.c zi / 
ttinclude cstdio.h: 
ttinclude cstdlib.h: 
ttinclude cconio.h: 
ttdefine byte char 

ftdefine SIG SIZ 6 

ftdefine GIF SIG "GIF87a" 


union clr info ( 
unsigned m:1; 
unsigned er:3; 
unsigned ub:1; 
unsigned pixel:3; 
byte cir byte; 

z 

struct scr des ( 
int width; 
int height; 
union clr info color info; 
byte background; 
byte des end; 

zh 

struct map ( 
byte red; 
byte green; 
byte blue; 


FILE "gif file; 


void main(argc,argv) 

int argc; 

char targv[]; 

( 
struct ser des screen descriptor; 
struct map "color map; 
int clir map entries; 


if ((argc -— 2)8.8. (read sig (argv[1]))) ( 
if (read screen descriptor (8screen descriptor)) ( 
eprintf ("Sz less,g: "din", 
screen descriptor.width); 
cprintf 
("Magasság:"dvin" screen descriptor.height); 
ceprintf 
("paletta: 
eprintf 
("szinbit:7ulrin" screen descriptor.color info.crt1); 
cprintf 
("bit/pixel : 
"un" screen descriptor.color info.pixelt1); 
eprintf 
("elr index : 7dwin", screen descriptor.background); 


"ulin", creen descriptor.color info.m); 





PARK 


éey 


riJi 





if (screen descriptor.color info.m) 

(clr map entries - 

2Mscreen descriptor.color info.pixel-1); 
color map - (struct map ") malloc (cir map entries); 
read color map (color map, clr map entries); 
l 

l 

l 
else puts(" Használat : 


) 


int read sig (char "file name) 


GI filenév "); 


char signature [SIG SIZ-41]; 
gif file - fopen (file name, "rb"); 
if (!gif file) ( 
cprintf ("Nem találom.Wrin"); 
fclose (gif file); 
return (0); 
l 
else ( 
fread (signature, SIG SIZ, 1, gif file); 
signature [SIG SIZ] -— 907; 
if (stremp (signature, GIF SIG)) ( 
cprintf ("Ez nem GIF filelrn"); 
fclose (gif file); 
return (0); 


else return (1); 
, 
) 


int read screen descriptor (struct scr des "descrip- 
tor) 


int result; 
result - fread (descriptor, sizeof (struct scr des), 1, 
gif file); 
if (result —— 1) 
return (1); 
else ( 
cprintf ("File hiba.nn"); 
fclose (gif file); 
return (0); 
) 
) 


int read color map (struct map "elr map, int num) 
( 
int result; 
result - fread (cir map, sizeof (struct map), num, 
gif file); 
if (result —— num) 
return (1); 
else ( 
eprintf ("File hiba.mn"); 
fclose (gif file); 
return (0); 
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Karakterek a VGA 
képernyőn 


Az alábbi program kilistázza az aktuális 
könyvtár tartalmát, vagy a paraméterként 
megadott szűrő szerinti fileokat a VGA 
képernyőn a grafikus kártya saját 
karakterkészletével. A program jól szemlél- 
teti az inline assembler használatát. 
Fordításkor a TASM.EXE-nek a PATH-ban 
megadott útvonalon kell lennie. 


PRÁTER TET KAY Tétel rteté kerte tetrürt tele betetertetetrértrtrtrrtetet [/ 
7 

vgadir.c 9 

BI, 

fordítás : TCC -mt -It vgadir —"/ 

kk 

7 

I" TASM.EXE -nek PATH ban kell lennie! "/ 


Áyefejekeeteeteteteíeteteteketetetetetetgeetetetetetetetettteáeetekekekketetekekekek [ 


tinclude cdir.h: 


char file dir[100][13]; 
char file size[100][8]; 
char file date[100][13]; 


int fnum,i-0,z,db,j,c,h,v imax-0; 
struct ffbik ffbik; 


Pf" Az xy pontba p pont magas betűvel "/ 
F" c színben d számú karaktert kiírunk "/ 
fra TEXT stringből E. 


kiir(int x,int y,int p,int c int d.char "TEXT) 
( 


if(p--8) asm 
if(ps-14) asm mov 
if(ps-16) asm mov 
asm i 10h 
asm ax, ds 
asm es ax 
asm bh,0 
asm bl,c 
asm di,x 
asm dhy 
asm cx,d 
asm bp,offset TEXT 
asm ax,1300h 
asm 10h 


d 


mov  ax,1123h 
ax,1122h 


ax,1124h 








FIRUDBASZANBOL 


F Várunk egy billentyű leütésre "/ 
var() 


asm xor ax ax 
asm int 16h 


; 


FT" Grafikus módba kapcsoljuk a VGA kártyát "/ 
vga) 

( 

asm mov ax,12h 

asm int 10h 


j: 


FT Visszakapcsolunk karakteres üzemmódra "/ 
karakteres() 


( 


asm 


) 


mov  ax,3 
int 10h 


void main(argc,argv) 
int argc; 
char "argv[]; 


( 
if (argc -- 2) 
fnum - findfirst(argv, 8ffbik,0x3f); 
else — fnum —- findfirst("."" 8.ffbik,Ox3f); 
PF Amíg van file olvas, de legfeljebb 99-ig "/ 
while(!fnum) 


strcpy (file dirfi], ffbik.ff name); 
Itoa (ffbik.ff fsize file size[i],10); 
fnum - findnext (ő.ffblk); 

imaxzi; 

itt; 

if (imax 299) imax -99; 


vga); 
while(zsimax) 


for (i-0; i cz 24; it) 


( 

kiir(3,2-i, 14,15,12.file. dirfi-z]); 
kiir(17,2-ti, 14,15,6 file. size[itz]); 
) 

var(); 

z7-7t25; 


var(); 
karakteres(); 


; 
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Színes 


DRÓHIZESTÉS 


Hirdessen a Forráskódban 
Fejléc 125x8 mm. 


A Forráskód egy rugalmas hirdetési lehetőséget ajánl Önnek. Színes oldalon 
színesen szedve 
Az új típusú blokkhirdetés alapegysége egy 60 x 45 mm.-es hirdetési felületet és Hirdetési felület 60 x 45 mm. 


egy 60 x 8 mm.-es fejléc, ami mind vízszintes mind függőleges irányban több- 
szörözhető. Hirdetési megrendelést elfogadunk színes és fekete fehér oldalra is. 8 0 0 0 at 








A hirdetések szedését a szerkesztőség végzi, lehetőség van lemezen hozott bit- 
térképek betöltésére, ezért felárat nem számítunk fel. Hirdetési kedvezmények 
ennél a hirdetési formánál is változatlanul igénybe vehetők. 


Fejléc 60x8 mm. Fejléc 60x8 mm. Fejléc 60x8 mm. 


7 pontos betűvel szedve 
9 pontos betűvel szedve 


10 pontos betűvel szedve 
12 pontos betűvel szedve 


14 pontos betűvel szedve 
18 pontos betűvel sze 


24 pontos betűv 












Hirdetési felület 60 x 100 mm. 


16.000. 


- áfa 


Várjuk érdeklődését a: 
134 - 1273-as 
telefonszámon 
NASA reklámiroda. 


Fizesse elő az első magyarnyelvű, 
programozói magazint! 


Havonta lemezmelléklettel megjelenő lapunk ára 298 Ft.-. 
Ha Ön előfizeti, kedvezményesen jut lapunkhoz. 


Előfizetési díj fél évre: 1494 Ft.- . Így Önnek egy szám csupán: 
Előfizetési díj egy évre: — 2388 Ft.- Igy Önnek egy szám csupán: 
Iskoláknak egy évre : 1188 Ft.- Igy egy szám csupán 


Előfizethető a mellékelt csekken, 
vagy átutalási postautalványon a 
NASA Kft. 
218-98172/541-003578-3 
számú számláján. 





Bittérképet 8 —— lemezről — IR — beillesztünk. 








. Az Ön hirdetése I Az Ön hirdetése 


Fekete fehér oldalon 


Hirdetési felület 60 x 45 mm. 


5.000.- 


-t áfa 


JTA tt: Huu B 





Fekete fehér oldalon Oktatók. 
9 


fejlesztők 


070 


Hirdetési felület 60 x 100 mm. 





10.000.- 


- áfa 


kedvezményt 
kapnak 








Ctrl - F9 


PASCAL 


ISKOLA 


Biztosan előfordult már önnel, hogy arra gondolt: "...de jó lenne erre a problémára 
egy rövid kis program..., vagy legalább én megtudnám írni ... 


A sorozat végigolvasása, a listák végigböngészése után nem okoz 
gondot egy Pascal program megírása, azaz néhány hónap múlva 
tudni fog "pascalul", és mindemellett kezében lesz egy file-kereső 
program forráskódja is. Ez, egy nagyobb rendszer részeként szolgál- 
hat be-, és kimeneti file-k megtalálására, de önmagában is használ- 
ható directory-váltóként. A kész program a lemezmellékleten talál- 
ható — "exe" formátumban. Tesztelje le! Hibát talált? Hiányol 
valamit? Itt lesz a lehetőség, hogy kijavítsa, vagy átírja az Ön egyéni 
igényei szerint. Amire szükségünk lesz: mindenekelőtt egy Turbo 
Pascal fordítóra, ezen belül azonban 5.5-ön felül bármi megteszi. A 
gépével szembeneni követelmény csak annyi, hogy a monitor 
szöveges üzemmódban 80x25-ös felbontású legyen. 


A filekezelő ablaka (1.ábra) négy részre tagolódik: 


1 : Beolvasó rész: Itt lehet megadni egy file elérési útvonalát, 
maximum 18 karakterben, és itt lehet meghajtót váltani. A 
begépelt parancssort "Enter"-rel, vagy "Tab"-al fogadhatjuk 
el. Ha a program értelmező része hibát észlel, automatikusan 
visszaadja az utolsó útvonalat, majd továbblép. 

2: File-lista: Ha jól adtuk meg a directory-t ez az ablak válik 
aktívvá, és itt lehetőségünk nyílik arra, hogy tovább lép- 
kedjünk a könyvtárak között, vagy kiválasszunk egy file-t. 
Ha ez megtörtént, üssünk "Enter"-t, vagy "Tab"-ot. 

3: OK-gomb: Hatása ugyanaz, mintha "Enter"-t ütöttünk volna az 
előző részben. Innen is tovább lehet menni "Tab"-al. 

4: Kilép-gomb: Az éppen aktuális könyvtárban maradunk, de nem 
választunk ki file-t. Hatása megegyezik az "Esc"-gomb 
hatásával. 


Egy Turbo Pascal program általános szerkezetét mutatja a 2. ábra. 
Látható, hogy egy program három részre tagolódik, úgy mint: pro- 
gramfej, programtörzs, valamint a kettő közötti deklarációs rész. 
(Kapcsos zárójelek közé kerülő információkat nem veszi figyelem- 
be a fordító.) Ez utóbbiban adhatjuk meg a teljes program futása alatt 
érvényes globális változókat (var), az általunk definiált új tipusokat 
(type), iletve konstansokat (const). A fejrészhez tartozó "program" 
kulcsszó, illetve az utána következő programnév opcionális, azaz ha 
nem írjuk ki, akkor sem okoztunk hibát, ha azonban programnevet 
adunk meg, akkor ügyeljünk arra, hogy még egyszer ezt a szót a for- 
ráskódban nem szerepeltethetjük. Ugyanez értendő a program- 
nyelvben használt lefoglalt kulcsszavakra is ( pl.: begin, end, var, 
procedure stb. ). A globális kapcsolók, illetve a unitok helye a 
listában kötött, a deklarációs rész elemeié azonban nem. A végrehaj- 
tandó utasításokat a "begin....end." által közrefogott programtörzsbe 
írjuk egymástól ";"-vel elválasztva. A forráskód fordítása lineáris, 
azaz a "program"-nál kezdődik és "end."-ál ér véget. Ha egy utasítás- 
sort többször szeretnénk használni, akkor nem célszerű azt annyiszor 
leírni ahányszor végre akarjuk hajtatni. Ennek kikerülésére szolgál- 
nak a "procedure"-k (eljárások), illetve "function"-ok (függvények). 





RRESRDŐ 


Az előre deklarált típusok, amelyeket az I. listában használunk: 


1. Integer: 2 byten ábrázolt egész típus, 
értéke: 32768 és 32767 között változhat. 

2. Byte: 1 byten ábrázolt egész típus, 
értéke 0 és 255 között változhat. 

3. Char: Ez a változó 1 byten tud egy karaktert tárolni. 

4. Array: A fenti két adattípussal szemben 
(amik egyszerű adattípusok) a tömb az összetett 
típusok közé tartozik. A tömb elemeinek típusát 
és számát előre rögzítjük. 

5.String: Karakterlánc típus maximum 255 karakter 
tárolására alkalmas változó típus. 

6. Record: A rekord típusú változó tetszőleges számú és 
tulajdonságú mezőt (változót) tartalmazhat. 





Minden változóhoz hozzá kell rendelni egy előre deklarált típust, 
amely megadja a változó által felvehető értékek típusát és értékkész- 
letét. 


A Turbo Pascal standard utasításai: 


Értékadó utasítás: Ennek szintaxisa: a:—-b. Az "a"helyére kerül 
mindig az a változó, aminek értéket akarunk adni, és "b" helyére az 
a változó (vagy kifejezés) aminek az értékét át szeretnénk adni. 
Elágazások: 
1. Kétirányú elágazást tesz lehetővé az "if" szerkezet : 
if logikai kifejezés then 
begin 
utasítások 1; 
end 
else 
begin 
utasítások2; 
end; 
A feltétel teljesülése esetén a "then" ág, ellenkező esetben az "else" 
ág hajtódik végre. Az "else" ág opcionális, elhagyhatjuk ha nincs 
végrehajtandó utasítás. Ilyenkor a "then" ág end-je után ";"-t kell 
tenni! A "begin end" is elhagyható ha csak egy utasítást adunk meg. 
(Programozástechnikai szempontból érdemes ilyenkor is kitenni, ha 
több "if" szerkezetet ágyazunk egybe: nem csak a programozó nem 
fogja tudni, hogy melyik ág melyik logikai kifejezéshez tartozik, 
hanem a fordító sem.) 
2. Többirányú elágazást tesz lehetővé a programban a "case" 
szerkezet: 
case kifejezés of 
cimkel: begin utasításoki end; 
cimke2: begin utasítások? end; 


else begin  UtasításokN end; 
end; 


Ló 


CZIKK.PAS 
pa és 4 a 

ZABRA . PAS 
3ABRA . PAS 





1.ábra A file kereső ablaka. 


( Programfej ) 
program Nev; 
( Globális direktívák ) 


( Deklarációs rész ) 
uses unit1, unit2, 
type 

cons 

var 

procedure 

function 


( Programtörzs ) 
begin 
end 


2.ábra 


( Eljárásfej ) 
procedure Nev( parameterlista:integer ); 


( Deklarációs rész ) 
type 
var 


( Eljárástörzs ) 
begin 
end; 


3.ábra 
uses Crt; 


type 
Sor - arrayl[ 1..25 , 1..2 Jof Byte; 
Kep - array[ 1..80 Jof Sor; 


AblakParam - record 
BFO : Integer ; 
BFS : Integer ; 
Mag : Integer ; 
Szel : Integer ; 
Cim : String. ; 
end; 


NyGombParam - record 
BFO : lInteger ; 
BFS : lInteger ; 
Szoveg : String. ; 
end; 

















(——— ——  Kepmentes. 

procedure Kepmentes( var MentettkKep : Kep ); 
var LathatoKep : Kep absolute $b800-$0 ; 
begin 
MentettKep :— LathatoKep; 

end; 


(————— ——  Kepkiiras- 

procedure Kepkiiras( MentettKep : Kep ); 
var LathatoKep : Kep absolute $b800-$0 ; 
begin 
LathatoKep :— MentettKep; 

end; 


TIBI 

procedure Inverz( InvString : String ); 
begin 
TextBackGround( White ); 
TextColor( Black ); 
Write( InvString ); 
TextBackGround( Black ); 
TextColor( White ); 

end; 


Ge natter 
procedure Hatter; 
var CikI1 , CikI2 : Integer ; 
begin 
CirSer; 
for CikI1 : 2 to 79 do 
for CikI2 :- 2 to 24 do 
begin 
GotoXY( CikI1 , CikI2 ); 
Write( £176 ); 
end; 
end; 


(————  NyomoGomb————— —————) 
procedure NyomoGomb( GombParam : NyGombParam ); 
begin 

GotoXY( GombParam.BFO , GombParam.BFS ); 


Inverz( 816 4 " " 4 GombParam.Szoveg 1 "" 417 ); 
end; 


——— keret. 


] 
procedure Keret( Allapot : Boolean ; KeretParam : AblakParam ); 
var RajzTomb : array[ 1..6 Jof Char; 
CikI , KodChr , CimKezdet : Integer ; 
begin 
if Allapot 
then 
begin 
KodChr :- 201; 
for Cikl :- 1 to 6 do 
begin 
RajzTombi Ciki ] : Chr( KodChr ); 
case KodChr of 
201 
205: 
186 : 
187 : 
200 
end; 
end; 
end 
else 
begin 
KodChr :— 218; 
for CikI :— 1 to 6 do 
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begin 
RajzTombi Cikl ) :- Chr( KodChr ); 
case KodChr of 
218 : KodChr 
196 : KodChr 
179 : KodChr :— 191; 
191 : KodChr :- 192; 
192 : KodChr :- 217; 
end; 
end; 
end; 
GotoXY( KeretParam.BFO , KeretParam.BFS ); 
Write( RajzTomb[1] ); 
for Ciki :- 1 to KeretParam.Szel do 
begin 
GotoXY( KeretParam.BFOrCiKI , KeretParam.BFS ); 
Write( RajzTomb[2] ); 


GotoXY( KeretParam.BFOtCikI , KeretParam.BFStKeretParam.Magt1 ); 


Write( RajzTomb[2] ); 

end; 
for Cikl :- 1 to KeretParam.Mag do 

begin 

GotoXY( KeretParam.BFO , KeretParam.BFStCikl ); 

Write( RajzTomb[3] ); 

GotoXY( KeretParam.BFOtKeretParam. Szel4:1 , KeretParam.BFStCIkI ); 

Write( RajzTomb[3] ); 

end; 
GotoXY( KeretParam.BFOtKeretParam.Szelt 1 , KeretParam.BFS ); 
Write( RajzTomb[4] ); 
GotoXY( KeretParam.BFO , KeretParam.BFStKeretParam.Magt1 ); 
Write( RajzTomb[5] ); 
GotoXY( KeretParam.BFOtKeretParam. Szelt1 , 
KeretParam.BFStKeretParam.Magt 1 ); 
Write( RajzTomb[6] ); 


CimKezdet :— ( KeretParam.Szel - Length( KeretParam.Cim ) )div( 2 ) ; 
GotoXY( KeretParam.BFOtCimKezdett1 , KeretParam.BFS ); 
Write( KeretParam.Cim ); 

end; 


-Abalk————————— 
procedure Ablak( Jellemzok : AblakParam ); 
begin 
Keret( True, Jellemzok ); 
Window( Jellemzok.BFOt1 , Jellemzok.BFSt1 , 
Jellemzok.BFOtJellemzok.Szel , Jellemzok.BFStJellemzok.Mag ); 
CirSer; 
Window( 1, 1, 80, 25 ); 
end; 





Ablak( UzenoParam ); 
GotoXY( UzenoParam.BFOt(UzenoParam. Szel-Length( Uzenet ))div(2) t 1, 
UzenoParam.BFS 1 2 ) ; 

Write( Uzenet ); 

EnterGomb.Szoveg :- "Enter; 

EnterGomb.BFO :- UzenoParam.BFO t UzenoParam.Szel - 

Length( EnterGomb.SZoveg ) - 3; 

EnterGomb.BFS :- UzenoParam.BFS 4 UzenoParam.Mag t 1 ; 
NyomoGomb( EnterGomb ); 

Readln; 

Kepkiiras( FoKep ); 
end; 


[—————Foprogram——— 
begin 

Hatter ; 

UzenoAblak( "üzenet , ...ez bizony hibátlan! ); 
GotoXY( 1, 1 ); 


Write( "Folytatás januárban! ); 
end. 


1.Lista 


A címke típusa mindig megegyezik a kifejezés típusával. Az "else" 
ág akkor teljesül, ha a címkék közül egyik sem egyezik meg a kife- 
jezés aktuális értékével. Az "else" ág (ugyanúgy mint az "if" 
szerkezetnél) opcionális. Itt is a "begin end"-k elhagyhatók, ha csak 
egy utasítást akarunk végrehajtatni. 
Ciklusok: 
A Turbo Pascal-ban három ciklusszervező utasítás van, amiket akkor 
használunk, ha egy parancssort többször szeretnénk végrehajtatni 
egymás után. 
1. while logikai kifejezés do 
begin 
utasítások; (ciklusmagj 
end; 
A ciklusmagban található utasítások mindaddig végrehajtódnak, 
amíg a logikai kifejezés igaz. Ha a kifejezés már akkor sem igaz 
amikor a program futása először a logikai kifejezés kiértékelésére 
kerül, akkor "begin end" közötti ciklusmag egyszer sem hajtódik 
végre. 
2. repeat 
utasítások; (ciklusmag) 
until kilépési feltétel ; 


(—— — UzenoAblak-: j 
procedure UzenoAblak( UzenoAbiCim , Uzenet : String ); 
var FoKep : Kep ; 


Itt addig történik az utasítások végrehajtása míg a kilépési feltétel 
nem teljesül. Mivel a tesztelés a ciklus végén található, ezért a cik- 


UzenoParam : AblakParam ; 
EnterGomb : NyGombParam ; 
begin 
KepMentes( FoKep ); 
UzenoParam.Cim :- [" t UzenoAbiCim $"J ; 
UzenoParam.Mag :- 3 ; 
UzenoParam.BFS :- 10 ; 
if Length( UzenoParam.Cim ) 27 Length( Uzenet ) 
then 
begin 
UzenoParam.BFO :- 40 - ( ( Length( UzenoParam.Cim ) t 2 )div( 2 ) ); 
UzenoParam.Szel :- Length( UzenoParam.Cim ) 1 2 ; 
end 
else 
begin 
UzenoParam.BFO :— 40 - ( ( Length( Uzenet ) $ 10 )div( 2 ) ); 
UzenoParam.Szel :- Length( Uzenet ) t 10 ; 
end; 








lusmag egyszer mindenféleképpen végrehajtásra kerül. 
3. for ciklusváltozó :— indulóérték to végérték do 

begin 

utasítások; (ciklusmag) 

end; 
vagy 

for ciklusváltozó :— indulóérték downto végérték do 

begin 

utasítások; (ciklusmag) 

end; 
Mindkét esetben meg kell egyeznie a ciklusváltozó típusának az induló 
és végérték típusával. Első esetben az induló érték nagyobbnak (vagy 
egyenlőnek ), a másodikban kisebbnek (vagy egyenlőnek) kell lennie 
mint a végértéknek, ha azt akarjuk, hogy a ciklusmag legalább egyszer 
végrehajtódjon. (Az első esetben a ciklusváltozó léptetése felfelé, a 
másodikban lefelé történik.) A fent említett okok miatt a "while" és a 
"for" ciklus ún. elöltesztelős, a "repeat until" pedig hátultesztős ciklus. 
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A "procedure"-k 
vagy másnéven eljárások általános felépítése (3. ábra) a program 
elépítéséhez hasonló. Ezért a "procedure"-ket (és a "function"-öket) 
alprogramoknak is szokták nevezni; változóit pedig lokális változók- 
nak. Ezekről a változókról tudni kell, hogy addig "élnek", amíg a 
vezérlés az adott alprogramon van, azaz mihelyt a program futása a 
függvényt (vagy eljárást) lezáró "end;"-hez ér tartalmuk elvész, és 
helyük a memóriában felszabadul. A legtöbbször azonban a meghívó 
blokknak (ami lehet a főprogram, de alprogram is) szüksége van az 
adott műveletsor közben létrejött értékre, vagy értékekre. Ilyenkor a 
paraméterlistában "megjelöljük" ezeket a változókat egy "var" kulcs- 
szóval. A "var" kulcsszó elmarad, ha a változó csak input jellegű. A 
üggvény meghívásánál ügyelnünk kell arra, hogy míg az utóbbi eset- 
ben az adott változó helyére akár egy konkrét értéket, akár egy másik 
változót írunk, addig az előbbi esetben csak változót írhatunk be. 
(Amennyiben nem adunk és veszünk át értéket a "procedure"-től, a 
paraméterlista és az azt közrefogó zárójel elmarad.) Az alprogramok 
használatának hármas haszna van : 

- az utasítássort elég a forráslistában egyszer deklarálni, s 
ésőbb csak hivatkozni kell rá, 

- átláthatóbbá teszi a programlistát, 

- gyorsabb lesz a program. 
Mit láthatunk ezek közül az I. listán? 
Először is deklaráltam 4 új tipust: Elsőként egy "Kep"-et ami tulaj- 
donképpen egy vektor, aminek minden egyes mezője megfelel egy 
"Sor" nevű tömbnek, aminek minden egyes mezője byte tipusú. Huh. 
Bizony ennél lehetet volna egyszerűbben is. (A kép tipus egy háromdi- 
menziós tömb, aminek minden eleme byte tipusú): 

Kep — arrayl[ 1..80, 1..25, 1..2]of Byte; 

(A LathatoKep[X,Y,1] byte-ja tartalmazza az (X,Y) pozíción található 
karakter ASCII kódját, a LathatoKep[X,Y,2] byte-ja, pedig az (X,Y) 
pozíció színleíró byte-ja. ) A második AblakParam típus egy record, 
aminek egyes mezői egy ablak jellemző paramétereit tartalmazzák: 

- BFO : a Bal-Felső-Oszlop tartalmazza az ablak bal felső 
sarkának oszlop (X) koordinátáját, 

- BFS : a Bal-Felső-Sor megadja az ablak balfelső sarkának 
sor (Y) koordinátáját, 

- Mag : az ablak "belső" magasságát tárolja, a 

- Szel pedig a "belső" szélességét, 

- Cim : Az ablak keretének felső részében, középen 
taláható szöveg. (az ablak neve.) 

A NyGombParam értelmezése a fentiek alapján, már nem okoz gon- 
dot. Tekintsünk a főprogramra, ami két utasítást tartalmaz. Az első 
(Hatter) jó példa egy paraméter nélküli procedure meghívására. (Itt két 
egymásba ágyazott "for" ciklust találhatunk, aminek segítségével 
feltöltjük a képernyőt a háttérmintát adó karakterrel.) Ezután 
következik az UzenoAblak meghívása. (Megjegyzés: Az I. listában 
közölt függvények természetesen már a file-keresőhöz készültek, de 
önmagukban is használhatók. Erre jó példa ez a kis program ami egy 
ablakot nyit ki a képernyőn, és közli velünk, hogy "...ez bizony hibát- 
lan!".) Nézzük röviden, mi történik akkor amikor a program futása 
ideér: az eljárás átveszi a főprogramtól az UzenoAbiCim változóban 
az ablak címét, valamint az üzenetet az Uzenet-ben. Miután lefoglalta 
a helyet a lokális változóknak a memóriában, belép a procedure-törzs- 
be. Elsőként elmenti az éppen aktuális képernyőképet, majd 
meghatározza az ablak paramétereit: 

- Cím : a címkét három részből fűzi össze: egy "["-ből, az 
az UzenoAblak változóból, valamint egy "]"-ből. 

- Mag : a magassága 3 karakter lesz, mert így egy sorba ki 
fog férni az üzenet, s még alul és felül is marad egy-egy 
üres sor. 

- BFS : a 10-ik sorban lesz a keret felső széle. 

Most elérkeztünk ahhoz a ponthoz, hogy el kell döntenünk, 
hogy melyik string hosszabb: a címé, vagy az üzeneté (a hosszt a 
Length függvény adja vissza. Részletesebben a következő részben 








fogok rá kitérni), hiszen milyen kényelmetlen lenne, ha pl.: az üzenet 
túllógna az ablak keretein. A döntés függvényében kiszámoltatjuk a 
BFO és Szel mező értékét. Ezek után felrajzoltatjuk magát az ablakot 
( Ablak(UzenoParam) ), és elhelyezzük benne az üzenetet. Miután 
megjelenik az "Enter-gomb" sematikus rajza, nincs más hátra, mint- 
hogy a programunkat várakozásra kényszerítjük (ReadLn) mindaddig, 
amíg egy "Enter"-rel zöld jelzést nem adunk a további futásnak. 
Ezután már csak annyi történik, hogy újra megjelenik a nyitó 
képernyő. Illetve történik még egy fontos dolog: a vezérlés vissza- 
kerül a főprogramhoz, ami még kiírja, hogy: "Folytatás januárban!" 


Burai Zsolt 


Turbo Pascal 7.0 16.800.- 
Turbo Pascal 

for Windows 1.5 16.800.- 
Borland Pascal with Object 7.0 
Dos / Windows 34.000.- 


Tel.: 134-1273 








Akció? 
úg Nagymező utca 64. 






KARÁCSONYI VÁSÁR! 


e PRAXIS -2000 for Windows (OEP hitelesítéssel) 
BEVEZETŐ ÁR (felnőtt--gyerek) 98 eFt -- ÁFA 
UPGRADE AR (adatkonverzióval) 24 eFt tt AFA 


e FLOPPY VÁSÁR: 10 db/ nettó ár 
















525" DS-HD Master Data 440 Ft 
3M, SONY formatált 880 Ft 
3,57" DS-HD No Name formatált 680 Ft 
Digic formatált 1.080 Ft 
3M, SONY formatált 1.200 Ft 
€ KEYMAX festékszalag: 

MPS 803, EPSON FX-80 280 Ft 

6 FAXPAPÍR 5 év szavatossággal: 
210x30 m, és 216x30 m-es 280 Ft 
210x50 m, és 216x50 m-es 380 Ft 






Vidékre -2000 Ft felett - utánvéttel 
CSOMAGKÜLDŐ SZOLGÁLAT 






Tel.: 132-7751 Fax: 269-1128 
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VAX VMS 


Az alábbi parancs file-ok aVAX VMS rendszer alatt 
futtathatók, ill. az EVE editor használatát segítik. 
Szükséges magyarázatok a fileokban megtalálhatók. 


§! 
$! 
$! 
$! AUTHOR: MOLNAR IMRE 

$! DATE:  1994.10.27 

$! VERSION: 1.1 

$! 

$! Lemezen lévő fájlok töredezettségét jelzi ki az alábbi 

$! parancsfájl. Kiírja nevet a méretet és a töredékek számát. 
$! Az adatokat elhelyezi a felhasználó default könyvtárában 
$! a FRAGMENT FILES.DAT állományban. 

$! 
§ 


FRAGMENT.COM 


SAVE DEF - F$ENVIRONMENT("DEFAULT") 

SAVE VER - F$VERIFY(0) 

Set controlzY 

DEV STR-" 

On WARNING then Goto ENDIT 

SAY - "Write SYS$OUTPUT" 

If P1 .nes. "HELP" .and. P1 .nes. "help" then Goto INIT 

SAY "A command inditasa: OFRAGMENT.COM ([P1] 

SAY "Parameter (P1):  [] Path [] (default: [7)" 

SAY" [I HELP [7 

Goto PROC END 
INIT: 

If P1 .egs. "" then Goto START 

SET DEF PT 

P1 5 F$ENVIRONMENT("DEFAULT") 

DEV STR - F$ELEMENT(0,":"P1) 4. ":" 

P1 - F$ELEMENT(1,"(",F$ELEMENT(0,"]",F$ELEMENT(1,":",P1))) 

SET DEF - DEV STR $ [74 Pt" 
START: 

SAY F$ENVIRONMENT("DEFAULT") 

SAY" 

DIR STR-"[74PT$" 

DIR STRI-" 

DIR EXT sét; 

LIS NAME - SAVE DEF 4 "FRAGMENT FILES.LIS" 
ista 

DAT NAME 5 SAVE DEF $ "FRAGMENT FILES.DAT"  ! 

Töredezettség 
$ — WRK NAME - SAVE DEF $ "FRAGMENT WORKS.DAT" 
struktúra 

SEARCH1 - "Map area" 

SEARCH2 - "Retrieval pointers" 

SEARCH3 - "Count:" 

SEARCH4 7 "LBN:" 

On WARNING then Goto ENDIT 

Directory "DIR STR"/Nohead/Output- LIS NAME" 

Open TREE WORK LIS NAME" 

Open/Write FRAG DATA DAT NAME" 
READ LOOP: 

Read/End of filezENDIT TREE WORK FIL NAM 

If FIL NAM .egs. "" 


! Könyvtár 


! Fájl- 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 





PARK 





HCcu 


vii 








then  Read/End of filezENDIT TREE WORK FIL NAM 
Goto READ LOOP 


Endif 
SpawniNolog 
umplFilelHeader/BlockzCount:0/Output:"WRK. NAME" "FIL NAM" 
FL-1 
SAY FIL NAM 
Open FRAG WORK "WRK NAME" 
Close FRAG WORK 
Open FRAG WORK "WRK NAME" 
WREAD LOOP: 
Read/End of filezENDITW FRAG WORK FRG REC 
W z F$LENGTH(FRG REC) 
IfFL .eg. 1 
then 


966466 


B NN n 


If FÉLOCATE(SEARCH1,FRG REC) .eg. W 
then Goto WREAD LOOP 
else FL-FLH ! MAP AREA 
NM-0 
NB:-0 
Endif 
Endif 
IfFL .eg. 2 
then If FÖLOCATE(SEARCH2,FRG REC) .eg. W 
then Goto WREAD LOOP 
else FLEFLt( — ! RETRIEVAL POINTERS 
Endif 
Endif 
If FL .eg. 3 .and. FÉLOCATE(SEARCH3,FRG REC) .eg. W then Goto 
READ LOOP 


06 B B B B B B B B B 


! COUNT 
W - F$ELEMENT(1,":",FRG REC) 


W z F$ELEMENT(0,"L"W) 
Z - F$EDIT(W,"COLLAPSE") 
N  F$INTEGER(Z) 
NM - NMr1 
NB - NBHZ 
Goto WREAD LOOP 
ENDITW: 
IFNM gt. 1 
then . SAY "FRAGMENTALT" 
SAY FIL NAM," - "" MERET:" NB," DARAB:", NM 
Write FRAG DATA FIL NAM," - "" MERET:" NB," 
JARAB:" NM 
Endif 
Close FRAG WORK 
Goto READ LOOP 
ENDIT: 
Set noon 
Close FRAG DATA 
Close TREE WORK 
Defineluser mode SYS$ERROR NL: 
Defineluser mode SYS$OUTPUT NL: 
Delete WRK NAME" 
Defineluser mode SYS$ERROR NL: 
Defineluser mode SYS$OUTPUT NL: 
Delete LIS NAME" 
PROC END: 
Set nocontrol-Y 
SAVE VER - F$VERIFY(SAVE VER) 
Set default SAVE DEF" 
Delete/Symbol/All 
Exit 


AN AN AN AN NN AN B B B B B B B B B I B B B B B B B B 


90 30 


! Az EVE editor (EDIT/TPU) használatában nyújt segítséget 
! az alábbi néhány definíció amennyiben két fájlt kívánunk 

! egyszerre szerkeszteni. 
! 

! ONE WINDOW 

! két ablaknál kikapcsoljuk a nem aktuálisat 
! TWO WINDOW 
! két ablaknál, fájlt válthatunk az aktuálisban 

! TWO WINDOW NEXT PAGE lapdobás előre mindkét ablakban 


! TWO WINDOW PREV PAGE lapdobás vissza mindkét ablakban 
! 


egy ablak esetében, fájlt válthatunk 


egy ablak esetében, bekapcsolunk egy másodikat 


!ADEF KEY procedúrában található az eljárások és a hozzájuk 
! tartozó billentyűk összerendelése. Az E5.,SHIFT KEY - Gold-Nextpage. 
! Az F19 definició teszi lehetővé a két ablak közti váltást. 
! Ez olyankor is használható mikor wildcard-ot adtunk meg a 
! szerkesztendő állomány nevében. Ebben az esetben az EVE felkínál 
! egy külön ablakot ahol az összes - wildcard-nak megfelelő - 
! fájlnevet felajánlja. Ekkor az F19 lenyomásával ez lesz 
! aktuális, ezután a kurzort a megfelelő névre poziciónálva és 
! a Select gombot majd az F19-et újra lenyomva az általunk 
! kívántat olvassa be a program. 
PROCEDURE ONE WINDOW 
IF EVESX NUMBER OF WINDOWS - 1 
THEN EVE NEXT BUFFER; 
ELSE EVE ONE WINDOW; 
ENDIF; 
ENDPROCEDURE; 
PROCEDURE TWO WINDOW 
IF EVESX NUMBER OF WINDOWS - 2 
THEN EVE NEXT BUFFER; 
ELSE EVE TWO WINDOWS; 
ENDIF; 
ENDPROCEDURE; 
PROCEDURE TWO WINDOW NEXT PAGE 
IF EVESX NUMBER OF WINDOWS - 2 
THEN EVE NEXT SCREEN; 
EVE OTHER WINDOW; 
EVE NEXT SCREEN; 
EVE OTHER WINDOW; 
ENDIF; 
ENDPROCEDURE; 
PROCEDURE TWO WINDOW PREV PAGE 
IF EVESX NUMBER OF WINDOWS - 2 
THEN EVE PREVIOUS SCREEN; 
EVE OTHER WINDOW; 
EVE PREVIOUS SCREEN; 
EVE OTHER WINDOW; 
ENDIF; 
ENDPROCEDURE; 
PROCEDURE DEF KEY 
DEFINE KEY 
(TWO WINDOW NEXT PAGE"KEY NAME(E6 SHIFT KEY)"NEXT 
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SCREEN"); 
DEFINE KEY 

CTWO WINDOW PREV PAGE",KEY NAME(E5,SHIFT KEY) PREV 
SCREEN"); 

DEFINE. KEY (ONE. WINDOW ,F187ONE WINDOW); 

DEFINE. KEY (TWO. WINDOW" F20 TWO WINDOWS"); 

DEFINE. KEY (EVE OTHER WINDOW" F19 "OTHER WINDOW); 
ENDPROCEDURE; 

DEF KEY; 


$! TAPE.COM AUTHOR: . MOLNAR IMRE 
$! DATE: — 1994.10.20. VERSION: 1.1 

$! 

$! Nap végén induló automatikus mentésekhez a meghajtóban 

$! lévő szalagnevet vizsgálja. Meghatározza, hogy a hét 

$! melyik napja van. Csak bizonyos nevü szalagokat fogad el ! 

$! A NAPK változóban ez beállítható. 


SET NOVERIFY 
SET NOON 
SAY-"WRITE SYS$OUTPUT" 
DAYS-"MondayíTuesday/Wednesday/Thursday" 
DAYSZDAYS 4 "Friday/Saturday/Sunday" 
NAPK-"HETFOIKEDDISZERDA/CSUTORTOKT" 
NAPKENAPK § "PENTEK/SZOMBAT/VASARNAP" 
DAY-FSCVTIMECTODAY", " WEEKDAY") 
ANSW-" 
EXST-3 
INX-0 
! napnév összehasonlítás 
NAP-F$ELEMENT(INX,"/ DAYS) 
IF NAP .NES. DAY 
THEN INXEINX?1 

GOTOLOOP 
ENDIF 
NAP-F$ELEMENT(INX, "7 ,NAPK) 
INXEINX$1 

! szalagnév összehasonlítás 

LAB-F$GETDVI(MUAO", VOLNAM") 
SAY LAB" CIMKÉJÜ SZALAG VOLT A MEGHAJTÓBAN" 
DISM MUA: 
ASK: Helyezze be a napi mentés kazettáját (" 
ASKAASK NAP - ") és RETURN, KILÉPÉSEK: " 
READIPROMPT-"ASK" SYS$COMMAND ANSW 
IF ANSW .EOS. "K" THEN EXIT 3 
MOUNT/NOASSIST/OVERRIDE-(ID, OWN) MUAO: 
LAB-F$GETDVI(CMUAO: "VOLNAM") 
IF LAB .NES. F$EXTRACT(0,6,UNAP) THEN GOTO CYCL 
DISM MUA:/NOUNLOAD 
EXST-1 
EXIT "EXST 








Az IBM PC portkiosztása 


(A különböző gyártmányoknál előfordulhatnak bizonyos eltérések) 



































000-OOF 8237 DMA controller 
000 Channel 0 address register 
001 Channel O word count 

002 Channel 1 address register 
003 Channel 1 word count 

004 Channel 2 address register 
005 Channel 2 word count 

006 Channel 3 address register 
007 Channel 3 word count 

008 Status/command register 
009 Reguest register 

OOA Mask register 

0O0B Mode register 

00€ Clear MSB/LSB flip flop 
00D Master clear temp register 
00E Clear mask register 
OOF Multiple mask register 


010-O1F 8237 DMA Controller (PS2 model 60 § 80]. reserved (AT) 
020-O2F 8259A Master Programmable Interrupt Controller 


020 8259 Command port (see 8259] 
021 8259 Interrupt mask register (see 8259) 
































030-O3F . 8259A Slave Programmable Interrupt Controller (AT,PS2) 


040-OSF 8253 or 8254 Programmable Interval Timer (PIT, see 8253. 
040 8253 channel 0, counter dívisor 

041 8253 channel 1, RAM refresh counter 

042 8253 channel 2, Cassette and speaker functions 

043 8253 mode control (see 8253) 

044 8254 PS/2 extended timer 

047 8254 Channel 3 control byte 





060-O57 8255 Programmable Peripheral Interface (PC.XT., PCjr] 
060 8255 Port A keyboard input/output buffer (output PCjr) 

061 8255 Port B output 

062 8255 Port C input 

063 8255 Command/ Mode control register 


0650-OBE 8042 Keyboard Controller (AT.PS2. 
060 8042 Keyboard input/output buffer register 

061 8042 system control port (for compatabilíty with 8255) 
064 8042 Keyboard command/status register 


070 CMOS RAM/RTC, also NMI enable/disable (AT,PS2, see RTC) 
071 CMOS RAM data (AT,PS2) 













OBO Manufacturer checkpoint port 
080-O9J0O DMA Page Registers 

081 High order 4 bits of DMA channel 2 address 
082 High order 4 bits of DMA channel 3 address 
083 High order 4 bits of DMA channel 1 address 


090-O9g7  POS/Programmable Option Select (PS2! 
090 Central arbitration control Port 

091 Card selection feedback 

092 System control and status register 

094 System board enable/setup register 

095 Reserved 












096 Adapter enable/setup register 
097 Reserved 


OAO NMI Mask Register (PC,XT) (write BOh to enable NMI, OOh disable) 
0AO-OBF . Second 8259 Programmable Interrupt Controller (AT, PS2) 
0AO Second 8259 Command port (see 8259) 

0A1 Second 8259 Interrupt mask register (see 8259) 


0CO TI SN76496 Programmable Tone/Noise Generator (PCjr) 
0C0O-ODF 8237 DMA controller 2 (AT) 
0C2 DMA channel 3 selector (see ports 6 § 82) 


0EO-OEF BReserved 


0OFO-OFF. Math coprocessor (AT, PS2] 
OFO-OF5  PCir Disk Controller 

OFO Disk Controller 

OF2 Disk Controller control port 

OF4 Disk Controller status register 
OF5 Disk Controller data port 


0F8-OFF  Reserved for future microprocessor extensions 


100-10F POS Programmable Option Select (PS2! 
100 POS Register 0, Adapter ID byte (LSB) 
101 POS Register 1, Adapter ID byte (MSB) 
102 POS Register 2, Option select data byte 1 
Bit O is card enable (CDEN) 
103 POS Register 3, Option select data byte 2 
104 POS Register 4, Option select data byte 3 
105 POS Register 5, Option select data byte 4 
Bit 7 is (-CHCK) 
Bit 6 is reserved 
106 POS Register 6, subaddress extension (LSB) 
107 POS Register 7, subaddress extension (MSB) 


110-1EF System I/O channel 
170-17F Fixed disk 1 (AT) 


170 disk 1 data 

171 disk 1 error 

172 disk 1 sector count 
173 disk 1 sector number 
174 disk 1 cylinder low 
175 disk 1 cylinder high 
176 disk 1 drive/head 
177 disk 1 status 


1FO-1FE Fixed disk 0 (AD) 
1FO disk 0 data 

1F1 disk 0 error 

1F2 disk 0 sector count 
1F3 disk 0 sector number 
1F4 disk O cylinder low 
1F5 disk O cylinder high 
1F6 disk O drive/head 
1F7 disk O status 


200-20F Game Adapter (see GAME PORT or JOYSTICK; 


210-217 Expansion Card Ports [XT] 

210 Write: latch expansion bus data 
read: verify expansion bus data 

211 Write: clear wait,test latch 
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Átviteli sebessé: 
Adatbitek- 
Paritász 

Stop bit 


Átvitel vezérlése: 





Read: MSB of data address 
212 Read: LSB of data address 
213 Write: 0-enable, 1-/disable expansion unit 
214-215 Receiver Card Ports 
214 write: latch data, read: data 
215 read: MSB of address, next read: LSB of address 


21F Reserved 
220-26F Reserved for I/O channel 


270-e7E Third parallel port (see PARALLEL PORTI] 
278 data port 

279 status port 

27A control port 


280-2AF Reserved for I/O channel 
2A2-2A3 MSM58321R$S clock 
2BO-2DF Alternate EGA, or 3271 video (XT, AT) 


2EO Alternate EGA/VGA 
2E1 GPIB Adapter (AT) 


2E2-2E3 Data acguisition adapter (AT) 
2E8B-2EF COM4 non PS2 UART [Reserved by IBM) (see UART! 
2FO-2F7  Reserved 


2F8B-2FF COM2 Second Asynchronous mdanter (see UART; 
(0 Primary Asynchronous Adapter for PCjr 


300-31F Prototype Experimentation Gard except PCjr] 
SEEN hardware 


Feriscope 
320-32F Hard Disk Controller 
320 Read from/ Write to controller 
321 Read: Controller Status, Write: controller reset 
322 Write: Het controller select pulse 
323 Write: Pattern to DMA and interrupt mask register 
(see ports OF,21,C2) 
324 disk attention/status 


330-33E Reserved for XT/370 
340-35F . Reserved for 1/0 channel 
360-36F PC Network 


370-377 Floppy disk controller (except PCjr] 
372 Diskette digital output 

374 Diskette controller status 

375 Diskette controller data 

376 Diskette controller data 

377 Diskette digital input 


3278-37E Second Parallel Printer (see PARALLEL PORT! 
First Parallel Printer (see PARALLEL PORT) 

378 data port 

379 status port 

37A control port 


380-38F Secondary Binary Synchronous Data Link Control (SDLC) adapter 
380 On board 8255 port A, internal/external sense 
381 On board 8255 port B, external modem interface 
382 On board 8255 port C, internal control and gating 
383 On board 8255 mode register 

384 On board 8253 channel sguare wave generator 
385 On board 8253 channel 1 inactivity time-out 

386 On board 8253 channel 2 inactivity tíme-out 

387 On board 8253 mode register 

388 On board 8273 read: status; Write: Command 
389 On board 8273 write: parameter; read: response 
38A On board 8273 transmit interrupt status 

38B On board 8273 receiver interrupt status 

38C On board 8273 data 


390-39F . Cluster Adapter 


3A0-3AF Fryer inary Synchronous Data Link Control (SDLC) adapter 
ar b8t 


340 On bi 59 port A, internal/external sense 
3A1 On board 8255 port B, external modem interface 
3A2 On board 8255 port C, internal control and gating 
343 On board 8255 mode register 

3A4 On board 8253 counter Ő unused 

345 On board 8253 counter 1 inactivity tíme-outs 
3A6 On board 8253 counter 2 inactivity time-outs 


3A7 On board 8253 mode register 
3AB On board 8251 data 
3A9 On board 8251 command/mode/status register 


3B0-3BF Monochrome Display Adapter (write only, see 6845 

3BO port address decodes to 384 

3B1 port address decodes to 385 

38B2 port address decodes to 384 

38B3 port address decodes to 385 

38B4 6845 index register, selects which register (0-11h) 
is to be accessed through port 385 

38B5 6845 data register (0-11h] selected by port 3B4, 
registers OC-OF may be read. If a read occurs without 
the adapter installed, FFh is returned. (see 6845) 

3B6 port address decodes to 384 

3B7 port address decodes to 385 

38B8 6845 Mode control register 

389 reserved for color select register on color adapter 

3BA status register (read only) 

38BB reserved for light pen strobe reset 


38BC-3BF Primary Parallel Printer Adapter (see PARALLEL PORT 
3BC parallel 1, data port 

3BD parallel 1, status port 

3BE parallel 1, control port 


3C0-3CF EGA/VGA 

300 VGA attribute and seguencer register 
3C1 Other video attributes 

3C2 EGA, VGA, CGA input status 0 
3C3 Video subsystem enable 

3C4 CGA, EGA, VGA seguencer index 
3C5 CGA, EGA, VGA seguencer 

3C6 VGA video DAC PEL mask 

3C7 VGA video DAC state 

3C8 VGA video DAC PEL address 
3C9 VGA video DAC 

3CA VGA graphics 2 position 

3CC VGA graphics 1 position 

3CD VGA feature control 

3CE VGA graphics index 

3CF Other VGA graphics 


30D0-3DE Color Graphics Monitor Adapter (ports 300-3DB are 
write only, see 6845 

3DO port address decodes to 304 

3D1 port address decodes to 305 

302 port address decodes to 304 

303 port address decodes to 305 

3D4 6845 index register, selects which register (0-11h] 
is to be accessed through port 305 

305 6845 data register (0-11h)] selected by port 3D4, 
registers OC-OF may be read, If a read occurs without 
the adapter installed, FFh is returned. (see 6845) 

3D6 port address decodes to 304 

307 port address decodes to 305 

3D8 6845 Mode control register (CGA, EGA, VGA, except PCjr) 

309 color select palette register (CGA, EGA, VGA, see 6845) 

3DA status register (read only, see 6845, PCjr VGA access) 

3DB Clear light pen latch (any write) 

3DC Preset Light pen latch 

3DF CRT/CPU page register (PCjr only) 


3FO-3FZ . Floppy disk controller (except PCjr) 

3FO Diskette controller status A 

3F1 Diskette controller status B 

3F2 controller control port 

3F4 controller status register 

3F5 data register (write 1-9 byte command, see INT 13) 
3F6 Diskette controller data 

3F7 Diskette digital input 


3F8-3FE COM1 Primary Asynchronous Adapter [see UJARTI 





e rel01 e B SIRS e [ES VS je ezeti 
Az alap IZO port címe: [Default [8 


Hegszakítás vonal (IRA]: 











Számítógép a testkultúra szalonban 


Lapunkban rendszeresen megszólaltatunk gyakorló profikat. 
Ebben a számban egy teskultúra szalon ügyvitelét, irányítását felügyelő 
alkalmazásról tudósítunk. 


Egy testkultúra szalon sok egységet foglalhat magában. 

Megtalálható benne például a zenés kondicionáló torna, a body 
building - testépítő - terem, a szauna, a szolárium, egy olyan bár 
vagy presszó, amely a sportolóknak ételt, italt, gyümölcsöket kínál, 
de sok esetben ez a szalon sportruházatot, kiegészítő kellékeket is 
árusít. Az ilyen összetett rendszer a szervező számára igen sok prob- 
lémát, de sok szép és újszerű feladatot rejt magában. Elég, ha csak 
abból indulunk ki, hogy az intézménynek tulajdonosai vannak, akik 
önmaguk is dolgoznak az üzletben, és sokkal több felelősséggel - így 
sokkal több joggal - rendelkeznek, mint az alkalmazottak. 
Szélsőséges esetben az alkalmazottnak az az érdeke, hogy minél 
kevesebb munkával, minél rövidebb idő alatt a legtöbb pénzt keresse 
és ingyenszolgáltatást kapjon. A tulajdonos viszont arra törekszik, 
hogy mindenki ledolgozza a munkaidőt és meg tudja állapítani, hogy 
a dolgozók az egyes tevékenységekből mennyi bevételt szereztek az 
üzletnek. 
Így már meg is találtuk a problémák első szintjét. A következő 
megoldandó feladat a vendégek oldaláról jelentkezik. Egy ilyen 
intézmény szolgáltatásait igénybe lehet venni bérlettel vagy napi- 
jeggyel is. Sajnos, a bérleteket el lehet hagyni, a bérletek lejárnak és 
hamisítani is lehet ezeket. Ezenkívül nagyon sokfajta bérletet kell és 
célszerű használni. Például vannak havi bérletek, vannak adott alka- 
lomra (10, 15, 20 alkalomra) szóló, de csak egy bizonyos időn belül 
felhasználható bérletek is. Célszerű a vendégeket különféle ked- 
vezményes - diák, katona, stb. - bérletekkel csalogatni. Ez a sokfaj- 
ta lehetőség már igen jelentős nyilvántartási feladatot tartalmaz. Egy 
másik ide tartozó probléma a vendégek edzésközbeni fogyasztása a 
presszóban. Itt a gond abban rejlik, hogy aki edzőruhában van, annál 
nincs pénz, tehát majd az edzés befejezésével fog csak fizetni. Így 
akár az egyik, akár a másik fél részéről adódhatnak problémák: 
elfelejtés, vita hogy ki mennyit fogyasztott, ki fizessen stb. 

Komoly nehézséget jelenthetnek a szoláriummal kapcso- 
latos nyilvántartási, karbantartási és üzemeltetési rendszerek. 
Például a szolárium megfelelő és célszerű üzemeltetéséhez speciális 
fénycsövek szükségesek. Ezek élettartama véges és meg van adva 
hozzájuk egy célszerű és észszerű üzemóra, amit be kell tartani. 
(Ezen túlmenően egy gépben általában két fajta - így két eltérő 
üzemórájú - cső van.) Ha több szolárium-berendezéssel dolgoznak, 
akkor szinte törvényszerű, hogy azok nem egyidőben üzemelnek, így 
ahány gép van, annyiszor 2 üzemórát kell adminisztrálni. Ha vendég 
érkezik, kell hagyni neki egy kis időt amíg levetkőzik, majd a gépet 
be kell kapcsolni és az általa kért idő eltelte után kikapcsolni. (A 
kikapcsolást nem bízhatjuk a vendégre, mert túlzott igénybevétel 
esetén esetleg "bőrrákot" kapna.) Figyelembe kell venni azt is, hogy 
a csöveknek kikapcsolás után szükségük van némi hűlési időre, így 
nem célszerű rögtön ráindítani. Természetesen a szolárium-bérletek 
nyilvántartására is szükség van. 

Még nem tettünk említést azokról a fontos 
követelményekről, hogy a raktárkészletről mindig pontosan tudni 
kell, mikor melyik áruból van már vészesen kevés. Módot kell talál- 
ni annak kimutatására, hogy melyikből, vagy melyik dolgozó 
munkaideje alatt fogy a legtöbb áru. Igen lényeges annak ismerete is, 
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hogy a bevételek és a kiadások milyen arányban állnak egymással. 
A vázolt feladatok végrehajtása, az egyes tevékenységek és folya- 
matok figyelemmel kísérése eléggé összetett nyilvántartási és 
ellenőrzési rendszer kialakítását teszi szükségessé. Ennek manuális 
módszerekkel történő ellátása nagy adminisztrációt és sok 
munkaórát követelne, nem is beszélve a hibalehetőségekről. Tehát itt 
állunk egy remek, összetett, számítógéppel prímán megoldható fela- 
dat előtt. 
A rendszer sémája a következő: 
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Presszó Bérlet Szolárium 


A számítógépes nyilvántartási rendszer kiépítéséhez mindenekelőtt 
szükségünk van a dolgozók nyilvántartására, aminek a személyi ada- 
tokon kívül tartalmaznia kell egy belépési jelszót - password-ot -, 
amiből következően különböző jogokat kap a belépett személy. Így 
el lehet különíteni a dolgozókat és a tulajdonost. Ebbe a nyilván- 
tartásba be kell vezetni a belépési és a kilépési időt, hogy a 
megfelelő kapcsolatokat és eredményeket kigyűjthessük. Szükséges 
egy raktárnyilvántartás, amire ráépül a presszó- és a bérletnyilván- 
tartás. A szolárium-vezérlés és nyilvántartás mellett a szolárium-bér- 
letek nyilvántartása egyedi, hiszen ezen a felhasznált perceket kell 
vezetni. 

A PRESSZÓ vezérléséhez egy önálló gépre van szükség, hiszen a 
presszó állandó forgalma miatt a gyors kiszolgálás érdekében ezt a 
gépet nem lehet megosztani más feladatok megoldására. 

A SZOLÁRIUM vezérlés és nyilvántartás is teljesen önálló gépet 
foglal el, mert több szolárium gép esetén - esetünkben 4 - a 
számítógép állandóan a vezérléssel van elfoglalva. A szoláriumbér- 
letek egyszerű, de egyedi nyilvántartását a számítógép megszakítás- 
rendszerére támaszkodva a vezérléssel kvázi párhuzamosan meg 
lehet valósítani. 

Kénytelenek vagyunk tehát a többi BÉRLET nyilvántartására egy 
harmadik gépet felhasználni. Mivel itt a forgalom nem állandó, így a 
gép átkapcsolható közvetlen raktári eladásra, ahol a sportruhákat, 
sporteszközöket lehet a raktárból kiválasztani. 

Elgondolásunk konkrét gépekkel történő megvalósítása esetén az 
alábbiakból kitűnik, hogy szükség van egy negyedik gépre is. 

A 3 kiszolgáló egység egy-egy 386 SX IBM kompatibilis 
számítógép 2 Mb RAM-mal, alap kiépítésben, de winchester nélkül. 
A gépeket LANTASTIC hálózatba kötjük, mert használata egyszerű, 
az erőforrásokat mindenki szabadon használhatja, a célnak tökélete- 
sen megfelel. A legfontosabb, hogy erre a kiépítésre, ezzel a tel- 
jesítmény-igénnyel ennek az ára a legkedvezőbb. 

Felvetődhet, hogy ha már kedvező árra törekszünk, miért nem egy 
286-os számítógépet használunk? A válasz a DOS 640 Kbyte-os 
memória korlátjából adódik. A DOS és a LANTASTIC memória 
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igénye miatt a későbbiekben bemutatott rendszerrel fejlesztett prog- 
ramnak nem lenne meg a szükséges - kb. 550 Kbyte - memóriája. 
Viszont a 2 Mbyte-os 386-tal a DOS egy részét és a 
LANTASTIC-ot teljesen fel lehet tölteni a felső memóriába, így az 
alapmemória kb. 620 Kbyte-ra szabadul fel. 
A szükséges háttértár biztosítására vezetjük be a negyedik gépet - 
IRODA -, mint szervert. Ezzel az irodában lehetőség van a bár- 
mikori lekérdezésre. Miközben a többi gépen futnak a programok, 
így ellenőrzni lehet azokon a munkát, le lehet kérdezni a raktárkész- 
letet és különféle listák előállítására is itt lesz lehetőség. 
Ez a gép célszerűen egy 386 DX 40-es alaplapon 4 Mb RAM-mal, 
legalább 120 MB Winchesterrel, a programok és az adatok tárolására 
alkalmas. A kiszolgáló gépek egy boot lemezzel indulnak és utána 
felveszik a kapcsolatot a szerverrel és -szükség szerint- egymással is. 
Eddig még nem szóltunk a nyugtaadási kötelezettségről. A 
nyugtaadást a rendszerhez úgy lehet beépíteni, hogy az egyik 
munkaállomáshoz kapcsolunk egy blokknyomtatót, amin a 
törvénynek megfelelő nyugtát ki lehet nyomtatni. Ez a gép is - a 
LANTASTIC hálózat specialitása miatt - ezentúl szerver lesz, ezál- 
tal a több kiszolgáló egység is látni fogja a hozzá kapcsolt blokk- 
nyomtatót. Így mindenhonnan ki lehet nyomtatni a nyugtát (bér- 
letről, egy turmixról, edzőnadrágról stb.). Az IRODAI szerverhez 
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Presszó Bérlet 


egy nyomtatót kell kapcsolni , mert az ÁFA-s számlát csak azon 
lehet kinyomtatni. Mivel a számla önindigós, csak mátrix 
nyomtatóról lehet szó. 

A rendszer végleges hardware felépítése: 


A gépek adataihoz csak a bejelentkezés után lehet hozzáférni. Innen 
meg lehet tudni, hogy ki mennyit dolgozott, mit adott el és mennyi 
bevételt ért el. 
A fizetési kötelezettségeket úgy lehet megoldani, hogy ha valaki ren- 
del valamit a presszóból, akkor az azonosítója alapján - név, kulcs- 
szám - azt a számlájához írják. Amikor elmegy, leadja a kulcsot a 
BÉRLET gépnél, ahol a képernyőn mindig látható az a táblázat, 
amely tartalmazza azoknak a kulcsoknak a számát, amelyeken tar- 
tozás van, Így kiszűrhető, ha valaki még nem fizetett. Ezt úgy lehet 
megvalósítani, hogy a BÉRLET gépen a billentyűzet megszakítá- 
son ülve, 1 másodpercenként a PRESSZÓ állományból kigyűjtött 
Tartozik file-ból frissítjük a képernyőn azoknak a kulcsoknak a 
sorszámát, amelyeken tartozás van. 

A SZOLÁRIUM vezérlést és nyilvántartást nézzük meg 
részletesebben. 
A szoláriumgép és a számítógép kapcsolatának alapvető fázisai: 

- a szolárium beindítása 

- a megadott idő után a szoláriumgép lekapcsolása 

- a hűtési idő betartása. 
Nézzünk egy példát, hogy miként zajlik a szoláriumgép használata: 
A vendég megérkezik, vagy napi jegyet vesz, vagy a bérletét 
használja. Megmondja, hogy hányszor 5 percig kívánja a szoláriu- 
mot használni, és turbo, vagy normál szoláriumot szeretne. Ezután 
bemegy a szoláriumhoz, levetkőzik és befekszik a gépbe. 
Az első kérdés: mikor induljon a szolárium? Amikor a vendég 
bemondja, hogy hány percig kíván szoláriumozni, ezt az időtartamot 
a számítógépen be kell állítani és egy késleltetési idő után elindítani. 
Ezután a szolárium akkor kapcsol be, ha letelt a késleltetés, vagy ha 
a vendég már befeküdt és megnyomta az indító gombot. 
A következő megoldandó feladat: mikor álljon le a szoláriumgép? A 


szolárium addig üzemel, amíg megkapja a tápfeszültséget. Tehát a 
vendég által kért ideig a feszültséget tartani kell, majd az idő lejártá- 
val le kell kapcsolni. De hogy mindenre fel legyünk készülve (pl.: a 
vendég megunta), módot kell találni arra, hogy a számítógépen az 
idő lejárta előtt is parancsot tudjunk adni a kézi leállításra. 
A szoláriumgép leállása után a hűtési idő betartását egy számlálóval 
biztosítjuk. Amíg az le nem jár, addig a képernyőn látható, hogy 
hűtés van (de szükség esetén be lehessen indítani újra). 
Vezérlőjelek a szolárium és a számítógép között: 
Ahhoz, hogy a számítógép 
esetünkben vezérelni tudjon 
egy szoláriumot, a 
számítógépnek egy input és 
egy output jelre van szük- 
. sége. Megoldandó feladat, 
hogy ezek a berendezések 
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IDŐLEJÁRT? hogyan csatlakozzanak a 
számítógéphez. Egyik 
" megoldás lehet, hogy 


közvetlenül a számítógép [/D 
csatornájába helyezünk egy 
input-output csatolást megvalósító kártyát. Ennek a megoldásnak az 
a hátránya, hogy egy külön kártyát kell építeni a gépbe. Ez ugyan 
megnöveli a költségeket, viszont előnye, hogy a számítógép által 
nyújtott portokat nem használjuk fel a saját célunkra. 
Másik megoldás, hogy a gépben általában már található Centronics 
szabványú nyomtatócsatlakozót használjuk fel. A kártya párhuzamos 
kommunikációra képes, 8 bit szélességben, valamint vezérlő- és stá- 
tuszjeleket tartalmaz. Ezek a kártyák "elvileg" az adatátvitelt a 8 
portjukon oda-vissza meg tudják valósítani, de ezt általában nem 
támogatják, így csak kimenetnek lehet felhasználni. De szerencsére 
a vezérlő jeleivel kialakíthatunk akár 8 bemenetet is, úgy, hogy az 
AUTO FEED kimenettel vezérelünk egy multiplexert és az ACK, 
BUSY, PE, SLCT a nyomtató által küldött vezérlő és státuszjeleket, 
mint bemenetet használjuk. 
Mivel esetünkben 4 szoláriumot vezérlünk, nincs szükség a multi- 
plexeres megoldásra, így csak a párhuzamos portot önmagában 
használhatjuk, a megoldás a legegyszerűbb és legolcsóbb. 
A számítógép port és a szolárium berendezés összekötésére 
célszerű a szilárd test relét alkalmazni, mert az teljes galvanikus le- 
választást biztosít a számítógép és az erősáramú egységek között. 

Miután a szoláriumgépek és a számítógép összekap- 
csolását megoldottuk, térjünk át a vezérlő- és nyilvántartó program 
felépítésének ismertetésére, kiragadva a SZOLÁRIUM . program- 
modult a teljes programrendszerből. 
A program  modulárisan épül fel, a gyors javítás és a könnyű 
továbbfejleszthetőség érdekében. A modulok a rendszerben több 
helyen felhasználhatók. A modularitás érdekében és a gyors, jól 
átlátható, könnyen debuggolható programozás érdekében a pro- 
gramokat egy általam jól ismert és régóta használt fejlesztői 
környezetben írtam. A programozási nyelv a Turbo Pascal, a fel- 
használt fordító a Borland Pascal 7.0-ás verziója. 

A program felépítése, működtetése: 
A program neve SZOLI. EXE. Nézzük végig eljárás szinten a forrás 
file felépítését. A Szoli.pas maga a program, amely az inicializálás és 
a lezárás megvalósítását és az overlay technika meghívását tartal- 
mazza. Az exe overlay hívásokkal dolgozik, így a program 
kevesebb memóriát foglal el futás közben. A forrás elején azoknak a 
unitoknak a felsorolása taláható, amelyeket ki kívánok tenni az over- 
lay file-ba. 
Az első függvény, amit meghív a program, a futáshoz szükséges más 
unitokban deklarált Boolean típusú függvényeket hív meg. Ha ezek 
közül valamelyik false értékkel tér vissza - nem sikerült a futása, 
vagy ki kíván lépni a felhasználó - akkor az init is false értéket ad, 
így a program befejezi futását. Ha az inicializálás lefutott az alkalmi 
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jegyek kiadását, a bérletek kezelését végző főprogramba jutunk. 

Az ügyfélnyilvántartás alatt a szoláriumok vezérlése folyamatban 
van, és miközben a bérletekkel bármit is csinálunk, a program - ha 
szükség van rá - le is kapcsolja a szolárium gépeket. A nyilvántartó 
alatt a gépek még hátralevő futási ideje másodpercenként frissülve 
látható a képernyőn. 

A vezérlést 3 tömb valósítja meg: Késleltető, Számláló, Hűtő. 
Mindhárom a következő típusú: 


type 
SzamlaloTipus  — 
Record 
Mukodik Boolean: 
Perc ő Byte; 
Ido H Time; 
Kezdes § Time; 
Dolgozo HivSzamTipus; 
end; 
SzamlaloTombTipus — Array[1..SzoliNr] of SzamlaloTipus; 


A Mukodik azt tartalmazza, hogy az adott tömb az adott szolárium- 
nál működik-e vagy sem. A Perc az elindított percek számát, az Ido 
a még hátralévő időt - másodpercben -, a Kezdes pedig az adott tömb 
indításának pil- 
2 zi lanatában a gép órájá- 
f 4 5 nak állását tartalmazza. 
- A számláló eljárás egy 
s ciklust tartalmaz, ami 
végigfut a szoláriumok 
LDT számán 1-től kezdve. A 
——i 
feel 


























ciklusmag három 
részből, a 3 számláló 
vizsgálatából áll. 








Felépítésük egységes: 
ha az adott szolárium 
számlálója működik és 
az idő még nem 0, 
akkor — csökkenti a 
hátralévő időt a szám- 
lálóban, felfrissíti a 
ké képernyőt. 

A képernyőn az 
adott szoláriumhoz egy 
vonal hossza szimbo- 
likusan mutatja, hogy 
még mennyi idő van 
hátra az adott műveletből, és ez percben is leolvasható. Ha a 
csökkentés által az idő lejárt, a cikus lekapcsolja a megfelelő 
egységet és bekapcsolja a következőt. 

Ha szükség van az idő előtti leállításra : ha csak a késleltetés 
ödött, akkor az áll le. Ha a szolárium, akkor a szolárium leáll és 
a hűtés bekapcsol. 
A rendszer bevezetésének gazdasági előnyei elsősorban az admi- 
nisztrációs munka és az ezzel együttjáró hibajavítások meg- 
takarításában nyilvánulnak meg. A számítógépes nyilvántartás szak- 
szerű és pontos, kiszűri a hiányokat, a tévesztéseket, az esetleges 
csalásokat. A kimutatások mindig gyorsak és szó szerint percre 
készek. (A nyilvántartás percben van kifejezve.) Mindezeken túl a 
számítógépes vezérlés megoldja - és talán ez a legfontosabb - a 
szolárium biztonságos, balesetmentes üzemeltetését (bekapcsolás, 
kikapcsolás, hűtési idő betartása stb.) is. A következő hasábban a 
szolárium port írását olvasását, számláló frissítését végző rutinok 
láthatók. 










































































Balla László villamos mérnök 
Telefon: 226-8962 








procedure UpdateSzamlalo; 
var 
N : Byte; 
begin 
for N :— 1 to SzoliNr do 


in 
with Kesleltetotombí[N] do 
if Mukodik 
then begin 
if Ido c 0 then Ido :- Kezdes-CurrentTime; 
UpdateKesleltetoScreen(N); 
if Ido cz 0 
then begin 
KesleltetoOff(N); 
Szolion(N); 
end; 
end; 
with SzamlaloTombíN] do 
if Mukodik 
then begin 
Ido :- Kezdes-CurrentTime; 
UpdateSzamlaloScreen(N); 
if Ido cz 0 
then begin 
Szolioff(N); 
HutesOn(N); 
end; 
end; 
with HutesTombíN] do 
if Mukodik 
then begin 
if Ido cz 0 then Ido :- Kezdes-CurrentTime; 
UpdateHutesScreen(N); 
if Ido cz 0 then HutesOff(N); 
end; 
end; 
end; 


function ReadSzolariumPort(N : Byte) : Boolean; 
begin 
ReadSzolariumPort :- not BitAreTurn(Port(SzoliConfigRec. SzoliPortr 1], 
N:2); 
end; 


procedure WriteSzolariumPort(N : Byte; K : Boolean); 
var 
B : Byte; 
begin 
B :- Port(SzoliConfigRec.SzoliPort]; 
TurnBit(B, N-1, K); 
PortiSzoliConfigRec. SzoliPort) : B; 
end; 


procedure UpdatePort; 
var 
N : Byte; 
begin 
for N :- 1 to SzoliNr do 
begin 
if KesleltetotombIN].Mukodik and ReadSzolariumPort(N) 
then KesleltetoTtomb[N].Ido :— 0; 
WriteSzolariumPort(N, SzamlaloTombíN].Mukodik); 
end; 
end; 


procedure MyGetkey; 
var 
H, M, S : Word; 
Szazad : Word; 
in 
GetTime(H, M, S, Szazad); 
If Szazad - 99 
then begin 
UpdateSzamlalo; 
UpdatePort; 
end; 
end; 
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ASSEMBLER ISKOLA 


Azoknak akik szeretnének megtanulni valamilyen programozási nyelvet, 
segítséget nyújt folyóiratunk. Ennek keretében inkább a gyakolati, mint 
elméleti oldaláról ismertetjük az assembly nyelvet. 


Ez az a nyelv, ahol egy program elkészítéséhez nem elég csupán az 
utasítások ismerete, hanem egy átfogó hardware-ismeretre is szükség 
van. Az assembly a számítógép saját nyelvén való programozása. 
Egy program megírása tulajdonképpen nem más, mint az adott fela- 
dat elemeire való bontása. Ezek az elemek magasabb szintű 
nyelveknél nagyobbak, az assemblynél a lehető legapróbbak. Ebből 
is látszik, hogy nem tartozik a könnyen megtanulható nyelvek közé. 
A programozás során több új fogalommal kell majd megismerked- 
nünk, amik egyben a programozó eszköztárát is képezik. Ezek 
határozzák meg a számítógépes programozás jellegét. 

A programozás eszközei: 


Eljárások: olyan rutinok, amire a program során többször is 
szükség van. Ilyenkor azt elegendő egyszer megírni és a továbbiak- 
ban csak hivatkozni rá. Ilyen eset például egy szöveg kiíratása, vagy 
egy vonal rajzolása, stb. 


Változók: nem mások, mint a memóriában tárolt különböző 
típusú adatok. Egyes feladatok megoldása elképzelhetetlen pusztán 
regiszterek használatával, a memória mérete pedig bőségesen 
megengedi, hogy abban adatokat tároljunk. Ezeket ne tévesszük 
össze a magasabb szintű nyelveknél megismert változókkal, mert 
nagyon sok különbség van köztük. 


Ciklusok: ez egyike a leggyakrabban használt eszközöknek, 
ugyanis segítségével az egymás után többször végrehajtandó 
programrészeket elegendő csak egyszer megírni és egy ciklus segít- 
ségével többször végrehajtani. Például az a feladat, hogy csippanjon 
ötöt a gép, akkor nem kell ötször megírni a rutint, hanem elegendő 
egyszer és utasítani a gépet arra, hogy azt ötször hajtsa végre. 


Feltételek vizsgálata, elágazások: igen gyakran előfordul, hogy 
el kell döntenünk, hogy egy eredménnyel mit kezdjen a gép, vagy 
adott helyzetben választani kell a különböző lehetőségek közül. Erre 
a célra szolgálnak a feltételek és elágazások. 


Alapértelmezés szerint a számokat decimálisan írjuk. Ha ettől 
eltérően ábrázoljuk azokat, akkor jelölni kell, hogy az adott szám 
melyik számrendszer szerint értelmezendő, így a bináris számok után 
egy "b", hexadecimális számok után pedig egy "h" betűt. A 16 bites 
regisztereket használjuk címzésre, egy 16 bites számmal 
megcímezhető legnagyobb memóriacím a 65535, azaz 64 KByte. 
Nos ennél még a leggyengébb XT-ben is több van. A megoldás az, 
hogy a gépben lévő memóriát felszeleteljük és laponként kezeljük. 
Így jött létre a szegmentált címzés, amihez szükség van egy szegmens 
és egy index címre. Ennek lényege, hogy a szegmenscím segítsé- 
gével kiválasztunk egy 64K-s lapot a memóriából, és az indexcím 
segítségével határozzuk meg a pontos címet. A teljes memóriacím 20 
bit hosszú. Ez úgy alakul ki, hogy a szegmenscímhez képest négy bit- 
tel el van tolva az indexcím. Ebből adódóan két szomszédos szeg- 
mens egymástól 16 Byte (egy paragrafus) távolságra van. A 
megoldás hátránya, hogy csak un. paragrafushatáron kezdődhet egy 





szegmens. A tanuláshoz szükségünk lesz egy assembler-fordítóra (a 
Turbo Assemblert ajánljuk), valamint egy egyszerű szöveg- 
szerkesztőre. Először minden magyarázat nélkül közlünk egy prog- 
ramlistát az 1. listán és a fordításhoz szükséges parancsfilet a 
2. listán. 


1 LISTA. 

CODE SEGMENT PUBLIC "CODE" 
ASSUME CS:CODE , DS:CODE 
ORG — 100h ; COM file-t készítünk. 

JMP INDUL 

SZOVEG DB "Helló világ ! $7 

PUSH CS 

POP DS 


MOV . AH,09h ; DOS funkció beállítása 


; 09h — String kiíratása. 
MOV  DX,offset SZOVEG; Kiírandó string kezdete 


INT 21h ; DOS megszakítás 


; hívása 
MOV . AX4C00h 
INT 21h 


; 4Ch — Kilépés 

; DOS megszakítás 
; hívása 

ENDS 

START 





2. LISTA 


Turbo Assembler-hez COM-ra fordító BAT- 
file. 


TASM "01 
TLINK 
DEL "-51.OBJ 


-T "01 


DEL "01.MAP 
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TIPPEK § TRÜKKÖK 


Va8 es s 
Számkiíró 2-itTModuus 20 
then Str :- NumStrTable[10-Modulusjt Str 
else Str : NumStrTable[20rModulusj Str; 
re si z end; 
A Pascal nyelvű függvény a NUMERIC NúneeszNűnene dvő; 
paraméterben megadott numerikus formájú TModulus :— Modulus; 
L ás! lé a. ús z until Numeric - 0; 
számot alakítja át - a magyar helyesírási szabá- Str1] : UpCase(Str[1]): 


lyoknak megfelelően - betűvel leírt számmá. if StriStrHossz) - Valaszto then Dec(StrHossz); 











unit Num2Str; 


interface 


type 
NumericTipus - Longint; 







function NumericToString(Numeric : NumericTipus) : String; 


( 


(" A függvény a NUMERIC - egész típusú - paraméterben megadott numerikus 
(" forméjú számot alakítja át a magyar helyesírási szabályoknak megfelelően 


(" betűvel leírt számmá. 


(" A Longint típusú változó a -2147483648..2147483647 intervallumban lehet. 


(7 Készítette : Balla László 


(eerreetetetáetá zenenek ettetek 





implementation 


function NumericToString(Numeric : NumericTipus) : String; 








const 
Ezer z ezer; 
Millio.. — "milliót; 
Milliard "mi 
Valaszto 


NumsStrTable : Array[0..40] of String[10] - 
(", "egy, kettő, "három", négy, "öt, 
"hat, "hét, "nyolc, "kilenc , 
", tíz, "húsz", "harminc", "negyven, ötven, 
"hatvan", "hetven, "nyolcvan", kilencven, 
", "tizen, "huszon, "harminc, "negyven, "ötven", 
"hatvan", "hetven", "nyolcvan, "kilencven, 
" "száz, száz, száz, száz, száz, 
"száz, száz, száz, száz, "); 
var 
Kitevo. : Byte; 
Modulus . : NumericTipus; 
TModulus : NumericTipus; 
EzerStr. : String[5]; 
Str: String; 
StrHossz : Byte absolute Str; 
begin 
if Numeric 2 2500 
then EzerStr :- Ezert Valaszto 
else EzerStr :— Ezer; 
Str"; 
Kitevo : 
repeat 
Inc(Kítevo); 
Modulus :- Numeric mod 10; 
if Numeric mod 1000 c 0 then 
case Kitevo of 
4 : Str: EzerStrtStr; 
7 : Str :— MilliotValasztot Str; 
10 : Str :— Milliardt ValasztotStr; 
end; 
case Kitevo mod 3 of 





0 : Str :- NumStrTablelModulusjtNumStrTable[30-rModulusjr Str; 


1: Str :- NumStrTablelModulusjt Str; 








NumericToString :— Str; 
end; 
end. 





Karakteres rutinok 


Akik elégedetlenek a C fordító beépített függ- 
vényeivel, írhatnak gyorsabbat, jobbat. 
Példaként néhány karakteres üzemmódban 
használható függvényt mutatunk be. 
















I! ——  ibmpc.c 
$pragma inline 

Hinclude cdos.h2 

static union REGS rg; 


IP! ———— Kurzor pozícionálás 
void cursortint x, int y) 


( 







rg.x.ax - 0x0200; 

rg.x.bx - 

rg.x.dx - ((y cs 8) 8. Oxff00) 4 x; 
int86(16, €rg, 8rg); 










Pp Kurzor pozíció lekérdezése 
void curr. cursor(int "x, int "y) 


( 







rg.x.ax - 0x0300; 
rg.x.bx - 0; 
int86(16, $rg, 6rg); 
"xzrg.h.dl; 

1y - rg.h.dh; 









) 


!———— Kurzor típus beállítása 
void set cursor type(int t) 


( 









rg.x.ax - 0x0100; 
rg.x.b; 

rg.x.c: 

int8ő6(16, €rg, €rg); 








§ 


Pp ——— Képernyő feltöltés karakterrel 
void clear screen(char attrib) 


( 









cursor(0, 0); 








rg.x.cx - 2000; 
int86(16, €rg, 8rg); 













PF! ———  - video mód lekérdezés 
int vmode() 
ú 
rg.h.ah - 15; 
int86(16, 6rg, €rg); 
return rg.h.al; 


) 


I" — karakter és attriibutum írása a video RAM -ba—- "/ 
void vpoke(unsigned vseg, unsigned adr, unsigned chr) 


if (vseg —— 0xb000) Pf monochrome mód "/ 
poke(vseg, adr, chr); 
else f 
.DI 7 adr; P" offset § 
ES - vseg; f" video segmens "1 
asm eld; 
.BX 7 chr, /" the attributum és a karakter "/ 
. DX - 986; f" video status port a 
do 
asmin al dx; 
while ( AL 8. 1); 
do 
asmin al,dx; 
while (I( AL 8. 1)); 
.ALz BL; 
asm stosb; 
do 
asmin al,dx; 
while ( AL § 1); 
do 
asmin al,dx; 
while (( AL 8. 1)); 
.ALz BH; 
asm stosb; 


b 


) 


! —. karakter és attriibutum olvasás a video RAM -ból—- "/ 
int vpeek(unsigned vseg, unsigned adr) 


if (vseg -- 0xb000) f" monochrome mód "7 
return peek(vseg, adr); 
asm push ds; 
.DX - 986; f" video status port "/ 
.DS - vseg; /" video segment address "/ 
.SI - adr; F" video character offset "/ 
asm cid; 
do 
asmin al,dx; 
while ( AL 8. 1); 
do 
asmin al,dx; 
while (AL 8.1); 
asm lodsb; 
.BL- AL; 
do 
asmin al,dx; 
while ( AL 8 1); 
do 
asmin al dx; 
while (I( AL 8. 1)); 
asm lodsb; 
(BH- AL 
.AXz BX, 
asm pop ds; 
return. AX; 


) 


ee eg 
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dBASE 5.0 


Az új dBASE adatformátuma eltér a régitől, új 
mező típusok léptek be. Az ismert dbhead 
programot ennek megfelelően módosítottuk. 


Hfinclude cstdio.h2 
include cconio.h: 


typedef struct 

( 

unsigned char ver; 
unsigned char date[3]; 
long recno; 

unsigned int headsize; 
unsigned int recsize; 
unsigned char blank[20]; 
JHEAD; 


typedef struct 


char name[11]; 

char typ; 

char addr[4]; 

unsigned char len; 
unsigned char dec; 
unsigned char reserved[14]; 
JFIELD; 


FIELD field; 
HEAD head; 
FILE "fp; 


main (int argc,char "argv) 
( 

int fieldnum i; 

if (argcz-2) 


( 
if((fp - fopen(argv[1] 7) 
( puts ("Hiba"); exit(0)) 
fread(8head,32,1 fp); 
elrser(); 
puts (argv[1]; 
printf Dátum. :9602d.9602d.9602dWv head. date[0],head.date[1] head.date[2]); 
printífRekordszám : 963din",head.recno); 
fieldnum - (head.headsize-31)/32; 
printfűMezőszám . : 963dírfieldnum); 
printffRekordméret: 963dinin",head.recsize); 
Printf(93s 96-10s 9995. 9655 963sin" "No" "Mezőnév", Tipus" "Hossz", Dec"); 
for(iz1; í cz fieldnum; itt) 


( 

fread(őfield, 32, 1, fp); 

printf(v3d 96-105" ,i, field.name); 
ifffield.typz— NN). printf(f9125 " , "Szám. "); 
printfC9125 " , "Dátum "); 
printf("9s125 " , "Szöveg "); 
printf(9125 " , "Bináris"); 
printf99125 " , "OLE. "); 
printf99125 " , "Logikaj"); 
if(field.typs-zM) . printff96125 " , "Memo. "); 
printfC95u 963ul, field.len, field.dec); 





) 
fclose (fp); 
7 
) 
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A programozásról 
kezdőknek 


Elmélkedés a programozásról a programnyelvekről. 


A számítógép egyszerű masina, meghatározott 
nagyságú számokkal végez egyszerű, előre beépített 
műveleteket. A műveleteket szintén számokkal 
azonosítjuk. Egy számítógép program nem más, 
mint az utasításokat és az adatokat meghatározott 
rendben tartalmazó számsorozat. A gép működése 
során ezeket a számokat olvassa, végrehajtja 
azokat az utasításokat amiket ezek a számok jelen- 
tenek, például egy perifériát vezérel vele. A 
számítógép programozása ennek a számsorozatnak 
az előállítása valamilyen adathordozón. Hogyan 
lehet ezt a számsorozatot előállítani? A legegy- 
szerűbbnek az tűnik, hogy egy alkalmas szöveg- 
szerkesztővel egyszerűen sorban leírjuk őket. A 
dolog működik, de van két hatalmas probléma. 
Egyrészt nagyon kell ismerni a gép működését, 
másrészt egy használható program nagyon sok 
utasításból áll. Már az is segítség lenne, ha az 
egyes utasításokra névvel hivatkozhatnánk, és a 
többször előforduló részeket nem kellene mind- 
annyiszor leírni, esetleg a legfontosabbak már előre 
meg lennének írva, nekünk csak hivatkozni kellene 
rájuk. Az ilyen szöveggel a számítógép nem tud mit 
kezdeni, azt egy alkalmas programmal át kell alakí- 
tani a megfelelő számsorozattá. Az ilyen programot 
assembler-fordítónak, a játékszabályt pedig, ami a 
neveket és az írásmódot tartalmazza, assembly 
nyelvnek nevezzük. Munkát takarítunk meg, ha a 
programokat szétválasztjuk két részre; egyik tartal- 
mazza azokat a rutinokat amelyekkel a számítógép 
saját erőforrásait kezeli; amik minden programhoz 
kellenek; a másik rész csak az adott alkalmazás 
rutinjait tartalmazza. Az első részt operációs rend- 
szernek, a másodikat felhasználói programnak 
hívjuk. Az első részt szakcégek készítik, így az egyes 
alkalmazásoknál csak a második részt, a fel- 
használói programot kell megírni, természetesen 
meg kell oldani a két rész között a kapcsolattartást. 
Komoly alkalmazások fejlesztése még így sem 
egyszerű, mert még mindig sok kódot kell írni és 
még mindig nagy szakértelem, a számítógép 
működésének alapos ismerete kell a prog- 
ramozáshoz. A programozás hatékonyságát úgy 
növelhetjük: ha a feladatot logikai elemekre bontjuk 
ésezeket az elemeket előre megírva, a prog- 
ramozáskor ezekből építkezünk. Csak hivatkoznunk 
kell rájuk, illetve a köztük lévő logikai kapcsolatokat 
kell leírnunk. Sok múlik azon, hogy ezeket az 
építőelemeket hogyan választjuk meg. Ha kicsik, 
akkor a programozáskor még mindig sok kódot kell 


írni, ha nagyok akkor vagy nagyon sokfélére van 
szükség, vagy nem illeszkednek a feladathoz. Egy 
lehetséges kiút, hogy az elemeket kicsire választjuk, 
de ezekből szabadon építhetünk nagyobbakat, 
amiket ezek után egy egységként használhatunk. A 
logikai kapcsolatok leírásában az előre megírt ruti- 
nok hívásának módjában az írásmódban célszerű 
megállapodni, ezeket hívják programnyelveknek. 
Mivel a feladatok és a programozói igények sok- 
félék, természetesen nincs egyedül üdvözítő 
megoldás, ezért sok programnyelv alakult ki, ezek 
állandóan fejlődnek és a sikeres megoldásokat 
átveszik egymástól. Szerencsés ha a programnyelv 
nem tartalmaz egy adott géptípusra jellemző 
utasításokat, mert így egy alkalmazás átvihető egy 
másik géptípusra, hordozhatóvá válik. Ezeken a 
programnyelveken megírt szöveg a forrásszöveg, 
vagy forráskód nem végrehajtható 
program. A felhasználására két út kínálkozik, az 
egyik: egy megfelelő program soronként elolvassa, 
értelmezi és végrehajtja az abban foglalt utasítá- 
sokat. A másik: egy fordító, szerkesztő programmal 
előállítjuk belőle a futtatható programot, a már sok- 
szor hivatkozott számsorozatot. A programkészítés 
még ezután is a beavatottak kiváltsága marad, 
hiszen meg kell tanulni egy programnyelvet, a 
fordító használatát. Az igazi áttörést a programkód 
nélküli fejlesztő eszközök jelentik. Általában grafikus 
felhasználói felület mellett, előre beépített 
lehetőségekből választva, azokat paraméterezve 
állíthatunk elő alkalmazásokat. Ebből következnek a 
rendszer korlátai: csak a beépített lehetőségekből 
választhatunk, így csak bizonyos fajta alkalmazások 
fejleszthetők, a programozás is és a futtatás is 
nagyon erőforrás igényes. Nézzünk egy példát: egy 
játékprogram fejlesztő képeit láthatjuk a továbbiak- 
ban. A program jelen esetben játék fejlesztése 
csupán egérrel oldható meg. Első lépésként megraj- 
zoljuk a beépített rajzoló programmal a játék hát- 
terét, az álló objektumokat, a mozgó figurák minden 
mozdulatát, természetesen más rajzoló program- 
mal készült képek is átvehetők. Ez után meg kell 
adni, hogy az egyes figurák hogyan mozogjanak, a 
lehetőségeket egy táblázatból választhatjuk ki, illetve 
egy animáció-szerkesztővel állíthatjuk össze. 

(1. ábra) Ha meghatároztuk az álló és mozgó fi- 
gurákat, készítenünk kell egy táblázatot, (3.ábra) mi 
történjen ha ezek összetalálkoznak. Végül a hát- 
térre egérrel fel kell raknunk a szereplőket és indul- 
hat a játék.(2.ábra) 
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Természetesen nem csak játékprogramot 
fejleszthetünk a megismert módon, hanem bár- 
mit, amihez hasonló fejlesztőeszközt írnak. Egy 
ilyen programozói felület elkészítése nagyon sok 
munkát jelent, ezért csak nagy cégek készítenek 
ilyet. A felhasználhatóságuk és ezen keresztül a 
vevőkörük korlátozott, ezért drágák, lassan ter- 
jednek. Pedig ezekre az eszközökre a nagyközön- 
ségnek, a felhasználóknak lenne szükségük. A 
programozók továbbra is a hagyományos 
módon, a hagyományos programnyelvekkel dol- 
goznak, hiszen ezeket az alkalmazásokat 
valakinek valahogyan elő kell állítani. Ezzel a kör 
bezárult. Mit csináljon az, aki most kezd érdek- 
lődni a számítógép, vagy annak programozása 
iránt, mivel kezdjen, merre induljon? Az új 
grafikus programozási lehetőségek és a hagyo- 
mányos program- 
nyelvek, pláne az 
assembler nem 
pótolják egymást, ki ki 
döntse el mihez van 
kedve, affinitása.és 
hagyja magát elcsábi- 
tani. A Forráskód a 
hagyományosan prog- 
ramozók, a számítás- 
technika iránt mélyeb- 
ben érdeklődők lapja 
kíván lenni, de számol- 
unk a realitással, a 
számítógéppel 
foglalkozók többsége 
felhasználó. 


2 ábra 

A kész háttérre 
feltesszük az álló 
és mozgó objek- 
tumokat és már 
indulhat a játék. 


3.ábra. 


Táblázatba kell foglalnunk az eseményeket. 


[rael[ 1] 2 [d] eves the play area on the top SZ 
2 ef) 
right 
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Only one action when event loops 
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KOBASZANIBOÓL 





Megszakítás 
parancssorból 


A gép lelkével most ismerkedők vehetik hasznát az alábbi 
három, Turbo C-ben írt rutinnak. Az első listán közölt 
POKE.C program segítségével adott szegmens és ofszet- 
címre írhatunk egy tetszőleges decimális számot. 
A második listában lévő OUT.C a gép tetszőleges PORT- 
jára ír egy decimális számot. A harmadik listában lévő 
INT.C rutinnal tetszőleges megszakítást hívhatunk meg 
parancssorból. A programokat COM formátumra fordít- 
suk, használatukat önmaguk magyarázzák. 
1. Lista POKE.C 

unsigned int seg, offs,i; 
unsigned char param; 
int hexatoi(char "szoveg ) 
( 

int szam - 0; 

inti - 0; 

for(i-0; (szoveg[i]j2-"70" 8.8. szoveg[ijc-"9") II 

(szoveg[i]2-"a" 8.8. szoveg[i]jszf) II 

(szoveg[i]2-7A" 8.8. szoveg[ijc—F") ; itt) 

( 

if (szoveg[i]2-"0" 8.8. szoveg[i]jc-"9") 
szam - 16:"szam t szoveg[i] 70" ; 
if (szoveg[i]j2-"a" 8.8. szoveg[i]jszf) 
szam - 16:szam t szovegl[i] -at 10 


if (szoveg[i]2—A" 8.8. szoveg[ijs—F") 
szam - 16"szam t szoveg[i] -At 10 
) return(szam); 
; 
void main(argc,argv) 
int argc; 
char targv[]; 
( 
ifr(argc -— 4) 
£ 
seg - hexatoi(argv[1]); 
offs - hexatoi(argv[2]); 
for(i-0; argv[3][i1]2-70" 8.8. argv[3][iJc—"9"5itt) 
param - 10"param 1 argv[3]([i] 70; 
pokeb(seg,offs param); 
) 
else 
( puts ("Használat: 
offsetcím 
Ihex/ 


POKE szegmenscím 
érték"); 

puts (" Ihex/ 

exit(0); 


) 


IdecF"); 








2. Lista. 


OUT.C 


unsigned int basel,i; 
unsigned char param; 


void main(argc,argv) 
int argc; 
char "argv[]; 


( 
if(argc -— 3) 
( 
for(i-O0; (argv[1][i]2770" 8.8. argv[1][i]c5"9") II 
(argv[1][iJ2-7a" 8.8. argv[1][iJc—f) II 
(argv[1][iJ2-A" 8.8. argv[1][iJc—F") ; itt) 
( 
if (argv[1][i]J2-"0" 8.8. argv[1][iJc—797) 
basel -— 16"basel 4 argv[1][i] 70" ; 
if (argv[1][iJ277a" 8.8. argv[1][iJszf) 
basel - 16"basel $ argv[1][i] a" 10 ; 
if (argv[1][iJ277A" 8.8. argv[1][i]csF") 
basel 5 16"basel t 
argv[1][(i] 7A"4 10; ) 
f 6.§.ú4 4-8 €--: 
argv[2][i]J2-70" 8.8. argv[2][iJc—79" it) 
param - 10"param t argv[2][i) 707; 


outportb(basel,param); 


) 


else 
puts ("Használat: OUT  portcím 
puts (" Ihex/ 


érték"); 
Idec/"); 


3. Lista INT.C 

ttinclude cdos.h: 

int i; 

unsigned int 

intnum axparam  bxparam, cxparam,dxparam; 
static union REGS rg; 


int hexatoi(char "szoveg ) 

( 

int szam - 0, int i — 0; 

for(i-0; (szoveg[i]2-70" 8.8. szoveg[ijc5"9") II 
(szovegl[i]2-"a" 8.8. szoveg[ijc—f) II 
(szoveg[i]2—A" 8.8. szoveg[ijc—F") ; itt) 


( 
if (szoveg[i]2-70" 8.8. szoveg[i]jc-"9") 

szam - 16"szam t szoveg[i] -0" ; 
if (szoveg[i]j2-"a" 8.8. szoveg[ijszf) 

szam - 16"szam t szoveg[i] -at 10 ; 
if (szoveg[i]2—A" 8.8. szoveg[i]js—F") 

szam - 16:szam t szoveg[i] -A"t 10 ; 
l 


return(szam); 


l 
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void main(argc,argv) 
int argc; 
char "argv[]; 





( 
if (argc 27 2) 


TEIL es 
intnum - hexatoi(argv[1]); m KITETT 
if (argc 2-7 3X axparam - hexatoi(argv[2]); [oli EH HB] 
rg.x.ax - axparam;) ttal UE] 
if (argc 27 4( bxparam - hexatoi(argv[3]); Éget e 
rg.x.bx - bxparam;) ENTÉNÉ 9] 
if (argc 2- 5X cxparam - hexatoi(argv[4]); PSUB-DIR4 
rg.x.cx - cxparam;) [dlIL EHE B] 
if (argc -— 6 dxparam - hexatoi(argv[5]); § $$UB-DIR4111-26-94] 1:15p 
rg.x.dx - dxparam;) 
int86(intnum, 8rg, 8§.rg); 
) 
else 
( 
puts ("Megszakítás parancssorbólin"); Il 
puts ("Használat: INT  intnum [axparam] ja 
[bxparam] [cxparam] [dxparam]"); szét 
puts (" Ihex/ Ihex! Ihex/ 
Ihex! Ihex/ "9; 
) 











ör újjá te 2 1146 Budapest, Thököly út 59/a. 
s TV e 1 KEZÉN yi máése ] vé ájtes Tel./Fax: 251-2960 
KÉSZ tő ] gs ] ] L É 1145 Budapest, Thököly út 105-107. 
Fr ea ak a ada Tel.: 251-5999 / 1195 


roFo he Library - The art of fine writing 


A legszebb magyar ékezetes betűkészletek 
irodai, grafikus, nyomdai, otthoni felhasználásra. 


(TrueType / Adobe Type 1) Szedő-tördelő, grafikus, Nyomdai szolgáltatásaink: 
PRL Essentials (36 font) 3000 / 3600 képfeldolgozó, DTP-rendszerek. - üzleti kisnyomtatványok; 
PFL 1.0 (300) 12500 / 14500 yporTEXT - névjegy, levélpapír; 
PFL 1.5 (300) 13000 / 15000 [/DOGRAPH - szórólap; 
PFL VP Pack (600) — 17500 / 19500 — SCanIMAGER - prospektus; 
FEL 20 (800) 21500 / 23500 ScanPUBLISHER ki könyv, újság; 
PFL 2.5 (800) 27500 / 29500 és más nyomdai 
PFL 3.5 (900) 31500 / 33500 Scannerek, levilágítók termékek gyártása. 
AKCIÓ! Amíg a készlet tart! széles választékban e es kr) 
fc A ! nagy mennyiségben is 
Adobe Type Manager 3.0 AKCIOS ARON! szükség esetén hőkötéssel 
3900.- Software-ek 
Kiadványszerkesztő, HANS és PC és Macintosh Számítástechnikai 
képfeldolgozó  software-ek: kö szolgáltatások: 
CorelDRAW! 5 örnyezetre. -. kiadványszerkesztés; 
"Ventura - szedés, tördelés; 
OuarkXxPress Rendszereit ízlése, - grafikai munkák; 
PhotoStyler igényei szerint - scannelés, levilágítás; 


- színbontás, proof; 


Adobe PhotoShop C inog alá 


..És amire Önnek szüksége van. megtervezzük, kiépítjük. 
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Az Ön programjának 


van saját arca? 


Ma már nem elég, hogy egy program működik, emberbarátnak is kell lennie. Ennek 
érdekében érthető, logikus, esztétikus, könnyen kezelhető felhasználói felülettel kell 
rendelkeznie. Megkezdjük a Compfair próbaszámban beígért sorozatunkat, amiben 
egy DOS alatt futó egérrel, billentyűvel egyaránt kezelhető grafikus ablakos fel- 
használói felületet fejlesztünk TURBO C nyelven. Az első részben a standard 
könyvtári függvények felhasználásával egy gombmenüt fejlesztünk, és szemléltetés 
képpen bemutatjuk az élő diagramok készítésének módját. 





Ebben a sorozatban feltételezzük a C nyelv középfokú 
ismeretét, fordítóként a Borland cég Turbo C 2.0 ter- 
mékét, mint a legelterjedtebb C fordítót használjuk. Aki 


Forráskód gonmbmenü 








nem ismeri kellő mélységben a C nyelvet, vagy más 


Elsö ] Második ] Harnadik [[degyedik ] 





fordítót használ, annak ajánljuk a ComputerBooks kiadó 


.ötödik ] Hatodik ] ; l Nyoladik 





"POGRAMOZZUNK C NYELVEN" című könyvét. A 
nyelv iránt érdeklődőknek alapműként, Brian W. 
Kernighan - Dennis Ritchie "A C programozási nyelv" 
című, a Műszaki Könyvkiadónál megjelent könyvét 
ajánljuk. 

















Kilenedik ] Tizedik ] Sokadik Vege 





A gombmeni elkészítésénél a menü adatait érdemes struk- 
túrába foglalni, hiszen egy alkalmazásnál több menü lehet és 
több menüpont. Így rövidebb, áttekinthetőbb kódot kapunk. 
A menüpontok struktúrája az alábbi mezőket tartalmazza: 

- a gomb felirata, 

- az indítandó rutin, függvény címe, 

- az átadandó paraméter, vagy paraméterek 

típusonként. 

Példánkban: 

typedef struct 

( char "name; 
Crutin)(); 
int param; 
) menupontok; 

A menü struktúrája az alábbi adatokat tartalmazza: 

- a menü bal felső sarkának koordinátái, 

- a menü szélessége magassága, 

- a gomboszlopok és -sorok száma, 

- a kiválasztott menüpont száma, 

- a menüpontokat tartalmazó struktúra, 

- az aktív és az inaktív gombokat azonosító adatok. 
Példánkban: 


typedef struct ( int x0; 
intyo; 
int mszel; 
int mmagas; 
int oszlop; 
int sor; 
int select; 
menupontok "m ; 
int gombszin; 
int aktivgombszin; 
int feliratszin; 
int aktfeliratszin; 
) gombmenu; 


A gombmeni kirajzolása sokféle módon történhet, például 
bittérképeket másolunk a képernyőre, és alma az aktív, körte 
az inaktív menüpontot jelenti. Így a gombmenü struktúrában 
az erre vonatkozó adatok különbözőek lehetnek. Példánkban 
a standard grafikát felhasználva rajzolunk gombokat. Az 
egyszerűség kedvéért a gombok nem maradnak bekapcsolt 
állapotban, de ennek sincs akadálya. 

Nézzük a gomb rajzolást, a felirat később kerül rájuk. 


void inbox( int x1, inty1, int x2, inty2 ) 


( setcolor(8); 
line( xt,y1, xt,y2);/4—97 
line( xt,yt,x2yth 
setcolor(15); 
line( xt1, y2, x2y2) IV 
line( x2, y1, x2,y2); 1-4 


) 


void outbox( int x1, int y1, int x2, inty2 ) 
( setcolor(15); 
line( x1, yt, x1, y2 ); 
line( xt, yt, x2,y1 ); 
setcolor(8); 
line( xt, y2, x2.y2);./" JV 
line( x2, yt, x2,y2); fr 


Me 
b: 


) 


void lap( int g1, int g2, int sz, int m, int c ) 
(outbox( g1, 92, g1tsz-1, g924m-1 ); 
setfillstyle(1, c ); 
bar (g1t1, 9241, g1tsz-2, g2-tm-2); 
) 


void gomb( int g1, int g2, int sz, int m, int c ) 
(rectangle( g1, 92, g1tsz-1, g24m-1 ); 
outbox( g1t1, 9241 ,g1tsz-2,g2rm-2 ); 
setfillstyle(1, c ); 
bar (g113, 9213, g1-tsz-3, g24m-3); 
) 
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A gombmeni tényleges kirajzolását a minden akció után 
meghívott gombra függvény végzi. Kirajzolja az összes 
gombot és az aktív gombot újra rajzolja. Ahol a futásidő kri- 
tikus, ennél takarékosabb megoldás is elképzelhető, csak a 
változó gombokat frissítjük. 


gombra(m) 
gombmenu "m; 


int gszel, gmagas ;i j.x.y,yamx,amy,tav-2 len; 


gszel  - ((m-emszel ) - (m-xoszlopt 1) "tavj/m-oszlop; 
gmagas - ((m-x2mmagas) - (m-sort1) "tav)/m-sor; 
setcolor(m-feliratszin); 
settextjustify(0,2); 
settextstyle(0,0,1); 
for (i 7 0; i cz (mesor - 1); itt) 
( for (j 0; j cz (m-xoszlop - 1); jr) 
( 


xz mox0tj" (gszel 4 tav) t tav; 

y 5 m-y0 ti " (gmagas 1 tav) t tav; 

gombi- x, y , gszel, gmagas,m-xgombszin); 

lenz8 " strlen((m-xmtitm-soszloptj) 2xname); 

outtextxy (xt(gszel-len)/2yt4, 
(m-oxmtitm-soszloptj)-2name); 

d 


amx z meselectem-oszlop " (gszel t tav) t tavtm-2x0; 
amy - meselect/m-xoszlop " (gmagas t tav) t tavtm-2y0; 
gomb( amx, amy, gszel, gmagas,m-2aktivgombszin); 
setcolor(m-2aktfeliratszin); 

lens 8 " strlen( (m-xmtm-eselect) 2name); 

outtextxy (amxtígszel-len)/2,amyt4, (m-mtmeselect)-2name); 


) 


A gombmeniüt a kurzor vezérlő billentyűkkel, ENTER-rel, 
ESC-pel vezérelhetjük. A billentyűk kódját a jobb 
olvashatóság kedvéért a fejléc állományba helyeztük. Nézzük 
tehát a kezelő függvényt: 


menuprocím,c) 
gombmenu "m; 
int c; 

( 


switch( c ) 


( 

case ESC : guit(0);break; 

case JOBB: if ( m-sselect —- m-xoszlop " m-sor-1) 
meselect - m-csselect - mooszlopt 1; 
else m-select tt; 
gombra(m);break; 

case BAL: if ( meselect 5 0) m-select - m-xoszlop-1; 
else m-select —; 
gombra(m); 
break; 

case FEL: if ( m-select cz (m-xoszlop-1)) break; 
else m-select z m-xselect - moszlop; 
gombra(m); 
break; 

case LE: if ((m-2xoszlop " m-ssor)-m-sselect cz m-oszlop) break; 
else m-select z m-xselect t m-xoszlop; 
gombra(m); 
break; 

case ENTER : gombra(m); if("((moemtmeselect)eerutin) NULL) 

("(((moemtmesselect)eerutin) )((meomtm-sselect)-2param); 

break; 


: 


ESC-re a guit() függvény hívódik meg, ez biztosítja az 
ellenőrzött kilépést a programból, ezt természetesen nekünk 
kell megírni. ENTER-re elindítjuk a kiválasztott rutint. 
Ezeket úgy kell megírni, hogy az átadott paramétert át is 
tudják venni, ellenkező esetben érthetetlen dolgokat művel a 
programunk. 





A menüprogram szemléltetésére egy élő, háromdimenziós 
grafikont mutatunk be a TURBO C standard grafikus függ- 
vényeinek felhasználásával. 


Esc-re kilép, más billentyű tovább 





A háromdimenziós grafikonok rajzolásának az a nehézsége, 
hogy a takart éleknek, felületeknek nem szabad látszani, ez 
pedig számításigényes feladat. Példánkban ezt azzal a trükkel 
oldjuk meg, hogy a grafikont hátulról rajzoljuk előre. Így 
viszont hamar kiszaladnánk a rajzfelületből. Ezért minden 
sor rajzolása előtt a már elkészült rajzot hátrább léptetjük a 
scroll() függvénnyel. Vigyázzunk a getimage() és a putim- 
age() függvények legfeljebb 64K adattal dolgozhatnak. 


scroll(xO,yO,x1,y1,dx,dy,hatszin) 
int x0,yO,x1,y1,dx,dy,hatszin; 

í 

size t size; 

int "buff; 


size - imagesize(x0,yOtdy,x1-dx,y1); 
buff - malloc( size ); 

getimage(x0 yOrdy,x1-dx,y1,buff); 
putimage(x0-tdx,y0, buff, COPY PUT); 
setfillstyle( SOLID. FILLhatszin); 
bar(xO,y0,x0-tdx-1,y1); 
bar(xOrdxy1-dyt1,.x1y1); 

free(buff); 
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TIPPEK £ TRÜKKÖK 


Grafikus file-kereső 


Témánk kapcsolódhat a gombmenüt ismertető cikkünkhöz, a grafikus képernyőn 
egy file-kereső ablakot hozunk létre. 


A szabványos TURBO C grafikát használó rutinban először 
egy keretet rajzolunk és kifestjük a belsejét. Ha a programot a 
paraméterként megadott szűrő szerint indítjuk, megkeressük 
az összes file-t az adott könyvtárból (de legfeljebb 
negyvenet). A megtalált file-okat két oszlopban az előre 


idle ROL s 





megrajzolt keretbe írjuk. Az elsőt letakarjuk egy kék oszlop- É COT .0BJ 

pal, és fehér betűvel újra kiírjuk. Az ablak tetején egy fehér .. BMP .C 

oszlopban szintén kiírjuk kék színnel az első file-t. Ezután egy Bú ÖTELES FENSS e . BMP 
végtelen ciklussal olvassuk a billentyűzetet. Esc billentyűre CL.LIB GRAYEKOD . BMP 
kilépünk, a fel és le nyilakra eggyel növeljük, ill. csökkentjük CM.LIB BCLOAD . BMP 
egy számláló értékét (db.), ennek megfelelően az előző filet ERÜ ÉTÉ Met 

egy háttérszínű oszloppal letakarjuk, majd a nevét alapszínnel FP87.LIB OUT . GC 

újra írjuk. A kiválasztott file-t fehér alapon kék színnel az GRAPHICS . LIB POKE.C 


MATHC.LIB RSBM.C 


ablak tetején, ill. kék alapon fehér színnel a saját helyén újra MATHH.LIB UGADIR e 
írjuk. Természetesen figyelnünk kell, melyik oszlopban MATHL.LIB Ce 
vagyunk. MATHM.LIB GOMEMENU c 
MATHS .LIB CPP . ESE 
COC.OBJ DBHEAD .C 
COH.OBJ BMP . OB8BJ 
Hinclude cdir.h: COL .O0BJ MAKE . EXE 
$include cconio.h: COM.OBJ TC.ERE 
COS.OBJ TCC.EXE 


include cstring.h2 
Hinclude cstdlib.h2 
include cdos.h2 


include cstdio.h2 1. ábra A grafikus file-kereső ablaka. 
include egraphics.h2 


typedef char szo[13]; 
szo file dir[40]; 


setcolor(8); 

line( p1t5, p2t5, pttsz-5, p245 ); 
line( p1t5, p2t5, p1t5, p2tm-5 ); 
setcolor(15); 

line(p1tsz-5, p2t6, p1tsz-5, p2tm-5 ); 
line( p1t6, p2rm-5, pttsz-6, p2tm-5 ); 
setfillstyle( p, c ); 

bar(p1t6, p2t6, p1tsz-6, p2tm-6 ); 

) 


ftdefine ESC 27 
tdefineFEL 72 
fdefineLE 80 


void panel( int p1, int p2, int sz, int m ,int p, int c ) 
( 
settextstyle(0,0,1); 
settextjustify(0,2); 
setcolor(15); 
line( p1, p2, pttsz-t, p2); 
line( p1, p2, p1, p2tm ); 
line(pttsz, p2t1, pttsz, p2rm ); 
line( ptt1, p2tm, pítsz, p2tm ); 
setfillstyle ( 1, 7); 
bar(p1t1, p281, ptt4, p2tm-t ); 
bar(pítsz-4, p2t1, pttsz-1, p2tm-t ); 
bar(p1t5, p2t1, pttsz-5, p2t5 ); 
bar(p1t5, p2tm-4, p1tsz-5, p2tm-1 ); 
setcolor(8); 


void gdir(int argc,char targv,int x,int y) 
( 

int fnum,g,p,iz0,z,db,j,c,h,v imaxz0; 
struct ffbik ffbik; 

char path (MAXPATH]; 


if (argc 5-2) 
strepy (path argv); 
else strcpy (path, "".""); 
fnum z findfirst(path, 8.ffbik,0x3f); 
while(lfnum) 
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( 
if(icz39) strepy (file. dirfi),ffbik.ff name); 
fnum - findnext (őffbik); 
imaxzi; 
if (imax2 39) imax-39; 
irt; 
) 
panel(x,y,220,250,1,7); 
setfillstyle(1,15); 
bar(xt6yt6 xt214yt26); 
setcolor(1); 
outtextxy(xt60yt16, file dir(0)); 


270; 
psyt40; 
gzxt10; 
setcolor(8); 
for (isz; i cz (zt19); itt) 
t 
outtextxy( g,p, file. dírfi)); 
pzpt10; 
? 
peyt40; 
gzxt110; 


for (iz (zt20); i cz (zt39); itt) 


1 
outtextxy(g,p file. dirfi)); 
pzpt 10; 
h 
setfillstyle(1,1), 


bar (xt8,yt38,xt108,yt48); 
setcolor(15); 
outtextxy(xt10yt40, file. dir(0]); 


dbz0; 
while( (csgetch())I-ESC ) 
8 
switch( c ) 
( case FEL : if (db :- 1) 
( 
ifldbcz19) 
(ha; 
vzytdb"10; 
) 
ifidb3520) 
(hzx100; 
vzyt(db-20)"10; 
) 


setfillstyle(1,7); 
bar (ht8,vt38,h108,vt48); 
setcolor(8); 
outtextxy(ht10,vt40, file. dir[db]); 
db - (db-1); 
iflidbsz19) 
(h-x; 
vzytdb"10; 
) 
ifldb220) 
(hzxt100; 
vzyt(db-20)"10; 
) 
setfillstyle(1,1); 


mem TIPPEK 4 TRÜKKÖK 








bar (ht8,vt38,ht108,vt48); 
setcolor(15); 
outtextxy(hr10,vt40,file dir[db]); 
setfillstyle(1,15); 
barlxt6yt6,xt214yt26); 
setcolor(1); 
outtextxy(xt60,yt16, file dir[db]); 
) 
break; 
caseLE : if (db czimax-1) 

f 
ifidbcz19) 
(han; 

vzytdb"10; 

) 

if(db220) 

(haxcr100; 

vzyt(db-20)"10; 

§ 
setfillstyle(1,7); 
bar (ht8,v438,ht108,vt48); 
setcolor(8); 
outtextxy(ht10,v440,file dir[db]); 
db - (dbt1); 

iflidbcz19) 
(ha; 

vzytdb"10; 

) 

ifrdb220) 

(hzxt100; 

vzyt(db-20)"10; 
) 
setfillstyle(1,1); 
bar (ht8,vt38,h108,vt48); 
setcolor(15); 
outtextxy(ht10,vt40, file. dir[db]); 
setfillstyle(1,15); 
barlxt6yt6 xt214yt26); 
setcolor(1); 
outtextxy(xt60yt16, file. dir[db]); 
) 


break; 


) 
) 


void main(argc,argv) 
int argc; 
char targv[]; 
( 
int graphdriverzDETECT, graphmode, errorcode; 
initgraph(§graphdriver, $-graphmode, "e:Wborlandcttbgi"); 
errorcode - graphresult(); 
setbkcolor(7);setcolor(1); 
panel(100,70,220,25,1,12); 
setcolor(15); 
outtextxy(130,80,"Forráskód file ablak"); 
gdir (argcsargv[1],100,100); 
getch0); 
closegraph(); 





T Anintáció Animáció Animáció Animáció 


Animáció 
Animáció 


ÁAnimáció.......... 


Animáció 


új Animáció 


Animáció 


a Windows 





képernyőn 


Egy érdekes, sokszor használható, látványos effektust mutatunk be 
a Windows programozóknak. . 
A teljes Windows képernyőre varázsolunk élő animációt. 


A korábbiakban azt írtuk: minden Windows programnak abla- 
ka, annak pedig ablakkezelő függvénye van. Ezt a kijelentést 
szeretnénk most helyesbíteni alábbi példánkkal, melyben egy 
érdekes lehetőségről, a teljes Windows képernyőn futó élő 
animáció készítéséről írunk. Ezt az effektust jól használhatjuk 
saját programjainkban figyelem felkeltésre, szemléltetésre. A 
program a windows.h beillesztése, a szükséges deklarációk 
után meghatározzuk a kirakandó bittérképek bal felső sarkát. 
Első lépésként elmentjük az animáció mögött lévő képernyő 
területet, a Ment() függvénnyel. A tulajdonképpeni animációt 
a Paint0 függvény valósítja meg azzal, hogy mozgás- 
fázisonként maszkot generál az erőforrásból beolvasott bit- 
térképhez, majd a memóriában lévő bittérképet maszkolás 
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" "1 file van kijelölve (155,257 byte) — Összesen 68 file (19.521,438 byte) 

után kiteszi a képernyőre. Példánkban a fázisok cserélgetését, 
a Paint() függvény hívogatását egy egyszerű ciklus végzi. 
Valódi alkalmazásban célszerű ezt a WM TIMER üzenetre 
bízni. Az egyes mozgásfázisokat bittérképként az erőforrás 
file-ba kell beépítenünk. Fekete hátterű, figurális, 16 színű 
bittérképet ajánlunk. Az animáció után természetesen takarí- 
tani kell, helyre kell állítani a hátteret, ezt a Vissza() függvény 
végzi, amihez fontos, hogy a Bbitm kezelő globálisnak legyen 
deklarálva. A forrásfile Borland C rendszerrel fordítható, a 
szükséges file-ok a lemezmellékleten találhatók. 


e win ani.c v 
"ai Átlátszó animáció a Windows képernyőn "/ 


include SWINDOWS.H: 
ftdefine SZEL 320 
ttdefine MAGAS 200 


HANDLE hinst; 
HBITMAP . Bbitm; 


void Paint (HDC ScreenDC, int epizod, POINT pont) 
( 

HDC  FrameDC, MemDC, BackDC, MaskDC; 

HBITMAP OldBitmap, MBitmap, Mask, OldMask, 

FrameBitmap, OldFrameBitmap, OldBackBitmap; 

MaskDC z CreateCompatibleDC (ScreenDC); 

Mask - CreateBitmap (SZEL, MAGAS, 1, 1, NULL); 

OldMask - SelectObject (MaskDC, Mask); 

FrameBitmap - LoadBitmap (hinst, MAKEINTRESOURCE (epizod) ); 

FrameDC z CreateCompatibleDC (ScreenDC); 

OldFrameBitmap - SelectObject (FrameDC, FrameBitmap); 

SetBkColor (FrameDC, RGB (0, 0, 0)); 

BitBlt (MaskDC,0,0,SZELMAGAS FrameDC,0,0,5SRCCOPY); 

MemDC z CreateCompatibleDC (ScreenDC); 

MBitmap 5 CreateCompatibleBitmap (ScreenDC, SZEL, MAGAS); 

OldBitmap - SelectObject (MemDC, MBitmap); 

BackDC z CreateCompatibleDC (ScreenDC); 

OldBackBitmap - SelectObject (BackDC, Bbitm); 

BitBlt (MemDC, 0, 0, SZEL, MAGAS, BackDC, 0, 0, SRCCOPY); 

BitBlt (MemDC, 0, 0, SZEL, MAGAS, MaskDC, 0, 0, SRCAND); 

BitBlt (MemDC, 0, 0, SZEL, MAGAS, FrameDC, 0, 0, SRCPAINT); 

BitBlt (ScreenDC,pont.x,pont.y, SZEL, MAGAS, MemDC,0,0,5RC- 
COPY); 

SelectObject (FrameDC, OldFrameBitmap); 

DeleteDC (FrameDC); 

DeleteObject (FrameBitmap); 

SelectObject (MemDC, OldBitmap); 

DeleteDC (MemDC); 

DeleteObject (MBitmap); 

SelectObject (BackDC, OldBackBitmap); 

DeleteDC (BackDC); 

SelectObject (MaskDC, OldMask); 

DeleteDC (MaskDC); 

DeleteObject (Mask); 
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void Ment (POINT pont, int szel, int magas) 
( 


HBITMAP OldBitmap; 

HDC  ScreenDC, BackDC; 

ScreenDC - GetDC (NULL); 

BackDC - CreateCompatibleDC (ScreenDC); 

Bbitm - CreateCompatibleBitmap (ScreenDC, szel, magas); 
OldBitmap - SelectObject (BackDC, Bbitm); 


BitBlt (BackDC, 0, 0, SZEL, MAGAS, ScreenDC,pont.x, pont.y, SRCCOPY); 


SelectObject (BackDC, OldBitmap); 
DeleteDC (BackDC); 
ReleaseDC (NULL, ScreenDC); 


void Vissza (POINT pont, int szel int magas) 
( 
HBITMAP OldBitmap; 
HDC  ScreenDC, BackDC; 


ScreenDC - GetDC (NULL); 

BackDC - CreateCompatibleDC (ScreenDC); 

OldBitmap - SelectObject (BackDC, Bbitm); 

BitBlt (ScreenDC, pont.x, pont.y, szel, magas, BackDC, 0, 0, SRCCOPY); 
SelectObject (BackDC, OldBitmap); 

DeleteObject (Bbitm); 

DeleteDC (BackDC); 

ReleaseDC (NULL, ScreenDC); 


int PASCAL WinMain(HANDLE hinstance, HANDLE hPrevhinstance, 
LPSTR IpCmdlLine, int nEmdShow) 
( 


HDC hdoe; 

MSG msg; 

POINT pont; 

int epizod - 1j; 

hinst - hinstance; 

pont.x - (GetSystemMetrics (SM CXSCREEN) - SZEL)/2; 
pont.y - (GetSystemMetrics (SM CYSCREEN) - MAGAS)/2; 
Ment(pont, SZELMMAGAS); 

for(j 70; jc40; jr) 

( 


hdc — GetDC (NULL); 
Paint (hdc, epizod, pont); 
ReleaseDC (NULL, hdc); 
epizodt-t; 

if(epizod2-9) epizod -1; 


) 
Vissza(pont SZELMMAGAS); 
PostOuitMessage(0); 





win ani.rc 97 


BITMAP PRELOAD DISCARDABLE "forr0001.BMP" 
BITMAP PRELOAD DISCARDABLE f"forrO002.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0003.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0004.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0005.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0006.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0007.BMP" 
BITMAP PRELOAD DISCARDABLE "forr0008.BMP" 


win ani.def 


WIN ANI 
DESCRIPTION "animacio" 
EXETYPE — WINDOWS 
STUB "WINSTUB.EXE" 
CODE PRELOAD MOVEABLE DISCARDABLE 
DATA —— PRELOAD MOVEABLE MULTIPLE 
HEAPSIZE 8192 
STACKSIZE 8192 
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2540 dpi 


nyomdai levilágító 
a legújabb rácstechnológiával is 
- moiré mentes random screening 
. gyors PostScript SW RIP 
s nagy felület, 4-xA4, vagy AZ 


ELŐNYÖS 
VÁSÁRLÁSI 
LEHETŐSÉGEK ! 


Amíg gondolkodik vegye 

igénybe szolgáltatásunkat. 

Az eredmény megkönnyíti 
döntését. 





; LaserGraph 


MTA SZTAKI 
1111 Bp. XI. Kende-u. 13-17. 
Tel.: 1610-667 
Fax: 1667-503 


Fotó:Patyi Árpád 


Bármit megmérhet 


Pc-jével 


134-12-73 








£ ee 


TIPPEK £ TRÜKKÖK 





Scroll 


Karakteres képernyő első sorában képújságszerűen scrol- 
lozhatjuk a paraméterben megadott stringet. Jól használható a 
rutin BAT file-okban figyelemfelkeltésre, de be is építhetjük 
programjainkba is. A lista Agárdi Gábor munkája. 


Scroll Segment 
assume —— cs:Scroll,ds:Scroll 


Row A szöveg helye a képen. 
Color 15 A szöveg szine. 


Start: al,al 
es:[128],al 
End :Ha nincs, ugrik a végére. 
si, 129 A szöveg kezdőcíme. 
ax, ODBOOh . ;A Videomemória 
sszegmenscímét 
ses regiszterbe tölti. 
:Kiszámolja a megadott sor 
sutolsó karakterének címét 


; van-e paraméterrész 


mov es ax 
mov al, 160 
mov bi Row 
mul bi 

add ax, 158 
mov di,ax 
mov ah.Color  ;Ah regiszterben tárolja a 
kiírandó szöveg színét. 

A mutató nullázása. 
:Kiolvassa az adott karaktert 
:Ha az enter, akkor 

elölről az egészet. 


.2 Scroll; xor bx,bx 
.3 Scroll: . mov al,[sitbx) 
cmp al,13 


iz .2 Scroll 
es:[dihpax . :Ha nem, ki lehet írni a 
sképernyőre. 
bx 
ax,100h Figyeli, van-e lenyomott 
sbillentyű. 
16h 
End :Ha igen, akkor kiélépés. 
dx,.3dah — Vertical Blank időzítés. 
4 Scroll: in 
al,8 
A Scroll 
c,79 A kijelölt sort egy 
karakterrel balra tolja. 
sub di,158 
mov ax es:[di2] 
mov es:[di],ax 
add di,2 
loop .5 Scroll 
imp .3 Scroll 


mov ax, 4c00h 
int 21h 


Kilépés a DOS-hoz. 





Hangoló 


A hardverrel ismerkedők, játékprogramírók és bárki más jó 
hasznát veheti az alábbi kétoktávos Turbo C nyelven íródott 
trillának. 


finclude cdos.h2 


void hang(int f,int t) 


int h, I, p; 
long í; 


1 - (1190000L/f) 96 256; 
h -(1190000L/f) / 256; 
outp(67,182); 
outp(66,1); 

outp(66,h); 

p —inp(97); 

outp(97,p I 3); 

for (IO; Ic1230Ltt; it); 
outp(97,p 8. -3); 

) 


main() 
d 
int ij; 
for (i-0; ic-2jitt) 


( 

for (j — 440-jcz 1760-j4-j/12 ) 
hang(j,20); 

) 


Remix 


Nem gondoljuk, hogy mi 
vagyunk a legjobbak. 
Ha jobb megoldást tudsz, 
a te programod gyorsabb, 
ügyesebb, írd meg! 

Mi közzétesszük. 
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Top! 


Me 


ALI 


Ez a cikkünk is egy induló sorozat része, amiben szinte "leváltjuk" az ismert 
adatbáziskezelő rutinjait. 


Nagyon örülök, hogy alkalmat kaptam egy 

olyan probléma megoldásának ismertetésére, amely 
régebben elég sok gondot okozott nekem is. 
Általában azok a clipper programozók, akik valamit is 
adnak arra, hogy programjuk igényes legyen, 
próbálkoztak már saját rutinok és függvények 
készítésével. Ebben az esetben nagyon előnyös lenne 
ha a rutinokat nem clipperben, hanem assembler- 
ben tudnánk megírni. Csak azok 
kedvéért akik még nem kóstoltak bele, illik tudni, 
hogy sok mindenre nem képes a clipper, amit 
assemblerben vígan megoldhatunk. Készíthetünk 
olyan clipper alá írt assembler rutinokat, melyek 
gyorssá és hatékonnyá, esetleg széppé teszik 
programunkat. 
Én magam is arra törekedtem mindíg, hogy a 
képernyőkezelést és a rendszerfüggő problémákat 
assemblerben kezeljem. Két dolog miatt is érdemes 
erre ügyelni. Az egyik, hogy ahogy gyűlnek a saját 
rutinjaim, úgy hagyhatom el azokat az idegen ruti- 
nokat, melyek működnek ugyan, de fogalmam sincs 
arról, mit csinál a változokkal, a memóriával stb. A 
másik, hogy ha megnézek egy átlagos adat- 
báziskezelő programot, már az arculata is borzal- 
mas. Márpedig az, hogy hogyan jelenik meg egy 
program a képernyőn, rengeteget számít, mivel egy 
program kezelhetősége részben függ a monitoron 
megjelenő információtól is. 

Nézzük mit kell tudni egy ilyen függvényről. 
Először is a felépítése. Kétfajta módja is van annak, 
hogy elkészítsük, mi a könnyebbiket választjuk. Ez 
annyit jelent, hogy a példalistában vastaggal írt 
szövegrész (CLfunc,CLcode,CLret) tulajdonképpen 
az EXTENDA.INC nevű fileban megírt makrók. Ezek 
segítségével tudjuk beilleszteni eljárásunkat a clipper 
programba. Ha belenézünk ezekbe a makrókba, 
akkor látható, hogy a verem igen fontos szerepet ját- 
szik a paraméterek átadásában. Most inkább arról, 
amit feltétlenül tudni kell. Az első sorban az include- 
val adjuk meg a fordítónak, hogy honnan vegye a 
makrókat amiket használunk. A codeseg mögé csak 
egy nevet kell írni, tulajdonképpen bármit. A CLpublic 
utáni, kisebb-nagyobb jel közé írt string lesz az 
eljárás neve, tehát a clipperből majd ezen a néven 





hivatkozhatunk rá. Jelen esetben ez "if at()" lesz. Ez 
idáig tulajdonképpen deklarációs rész. 

A tényleges rutin írása ezután kezdődik. A CLfunc 
makró után megadjuk a függvény típusát, tehát, 
hogy milyen típusú adattal tér vissza majd. Ezután 
megadjuk az eljárás nevét, amit már a CLpublic-nál 
megadtunk. A függvény típusa lehet "none", "log", 
"int" és "char". Ha a nonett írjuk akkor procedúráról 
van szó, aminek nincs visszatérő értéke. A többi 
esetben boolean, egész szám és karakter típusú a 
függvényünk. A miénk visszatérő értéke az AX 
regiszter értékétől függően true vagy false. Ha az 
adott gép amin fut a program AT, akkor true, ha XT 
akkor false. Magáról a paraméter átvételéről később 
írnék. A Code és a CLret közé írjuk a saját kis 
programunkat. 

A fordítás: ASM filéból OBJ a masm.exe-vel. Utána 
a LIB.EXE segítségével libet készítünk. 


Szalay Zsolt 


INCLUDE EXTENDA.INC 
CODESEG spt1 
CLpublic cIF ATz 


CLfunc log IF AT cz 
CLcode 
push es 
mov ax, OfOOOh 
es, ax 
di, Offfeh 
al,es:[di] 


mov 
mov 


es 
al,Ofch 
no at 
ax,1 
kif 
ax,0 


ax 
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Edit View IZ jazene Window eltelő 
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Rec 77 TITLE LABEL ÁBBI 
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BÜs sé kényelmesen hozhatunk létre adatbázisokat, dező ablakot a vizuális programozás lehető- FŐS zizi 
53 Box azaz — készíthetünk jelentéseket, lekérdező- . . ségét nyújtó FORM generátor segítségével, — Sá 
82359 12 — ablakokat. Közben kódot egy sort sem kell — Az eredményt WFM kiterjesztésű szövegfile-  olumbia 
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PÖ Box 68 ha kell a kódot is megírja. Az új dBase a is látható. Gombok szolgálnak az előre és estindies 
Bo sz. íz za konkurens Windowsos adatbáziskezelőkhöz hátra való keresésre ill. az ablak lezárására. 
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EAZÁNÉ ESET AAL 


hasonlóan a DBT állományban képet, hangot 
és tetszőleges Windows objektumot is tárol- 


Aazaterville 


ME 


A fentieken túl egy logó elhelyezésére is volt 
mód, de az ékezetes karaktereket sehogyan 
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"" END HEADER — do not remove this line" 
" Generated on 12/04/94 


LOCALf 

f 2 NEW FORRKODFORM() 
f.Open() 

CLASS FORRKODFORM OF FORM 


Set Procedure To CADBASEWINISAMPLESIBUTTONS. CC addítive 


this. Width - 51 
this.Top - 0 
this.Left - 1 
this. Text - "Form" 
this.Height - 25.7051 
this.HelpFile - " 
this.Helpld 5" 
this. View - "music.gbe" 
this.ScrollBar 2 
DEFINE RECTANGLE RECTANGLE1 OF THIS; 
PROPERTY; 

Width 50,; 

Top -1.0586,; 

Left 0 

Border .T.,; 


Text "Rectangle1" ,; 
ColorNormal "NIW",; 
Height 26.1172 


DEFINE TEXT TEXT1 OF THIS; 
PROPERTY; 
Width 15, 
Top 0.5, 
Left ú 
Border .F.,; 
FontSize 18, 
Text "Lemez katalógus ",; 
ColorNormal "WWW"; 
Height 2.0293 


DEFINE IMAGE IMAGE1 OF THIS; 


PROPERTY; 

Width 38, 

Top 4 

Left § 

Height nr 

DataSource "BINARY MUSIC-2COVER" 

DEFINE TEXT TEXT2 OF THIS; 

PROPERTY; 

Width 15; 

Top s 

Left LA 

Border .F.,; 


Text" 8Eloado",; 
ColorNormal "BtW" a; 
OldStyle .T.,; 

Height 1 


DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS; 
PROPERTY; 


Width 27a 

Top 174 

Left 155 

Border .T.,; 

ColorNormal "NIW-4" ,; 
DataLink "MUSIC-2:ARTIST:",; 
Height 9 





DEFINE TEXT TEXT3 OF THIS; 
PROPERTY; 
Width 15 
Top 19 
Left 1 
Border .F.,; 
Text" €Cim : 5 
ColorNormal "Bt/W"; 
OldStyle .T. 
Height 1 


DEFINE ENTRYFIELD ENTRYFIELD2 OF THIS; 
PROPERTY; 
Width dia 
Top 19. 
Left 15. 
Border .T.,; 
ColorNormal "NWA"; 
DataLink "MUSIC-2:TITLE?,; 
Height f 


DEFINE CANCELBUTTON CANCELBUTTONI OF THIS; 


PROPERTY; 
Width 12 
Top Az 
Left 30, 
Group .T.; 
Height 2 
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PURPLE THING 


CÁALCULÁATION 


DEFINE NEXTBUTTON NEXTBUTTONI OF THIS; 
PROPERTY; 
Width 12; 
Top 2 
Left 18, 
Group .T.,; 
Height 2 


DEFINE PREVBUTTON PREVBUTTONI OF THIS; 


PROPERTY; 
Width tás 
Top dig 
Left 6 
Group .T.,; 
Height 2 


DEFINE IMAGE IMAGE2 OF THIS; 
PROPERTY; 
Width 41.5,; 
Top -0.2939,; 
Left 3.5, 
Height 4.2939,; 
DataSource "FILENAME K256.BMP",; 
Alignment 2 


ENDCLASS 


Sprite 


Akinek gondot jelent egy tetszőleges alakzat kirajzolása a 
grafikus képernyőre, ajánljuk a figyelmébe a következő listát. 
A rutin nem túl gyors, ezért nagyobb alakzatokat nem érde- 
mes így kirakni és az ábra leírása is hosszadalmas. Az igazi 
alkalmazási lehetőség, kis ábrák, "sprite"-ok, logók, kirakása. 


include cdos.h2 
include egraphics.h2 


void Sprite( int x, int y, char "bitmap, int byteszel, int sor) 
( char far "ptr; 

register int i, j; 

unsigned char XOR; 

unsigned char SAVE; 

int Shift; 

unsigned char ANDVAL - 0; 

int YStart; 

int SaveShift; 


Shift -x 9 8; 
for (iz0; icShift; tHIJANDVAL t- icc1; 
SaveShift z 8 - Shift; 
YStartzy "804x/8; 
for (jz0; jesor; tj) ( 
ptr.: MK FP( 0xA000U, YStart ); 
YStart tz 80; 
SAVE - 0; 
for (iz0; icbyteszel; tti) ( 
XOR : (fbitmap 22 Shift) t SAVE; 
SAVE z ( (tbitmap 8: ANDVAL) cc SaveShift ); 
tptrr4 Az XOR; 
bitmaptt; 
) 
tptr. Az SAVE; 


) 


unsigned char A[145] - ( 

0x00, 0x00, 0x80, 0Ox00, 0x00, 
0x00, 0x01, Oxc0, 0Ox00, 0x00, 
0x00, 0x01, Oxc0, 0x00, 0x00, 
0x00, 0x01, 0xe0, 0x00, 0x00, 
0x00, 0x03, 0xe0, 0x00, 0x00, 
0x00, 0x03, OxfO, Ox00, 0x00, 
0x00, 0x06, OxfO, Ox00, 0x00, 
0x00, 0x06, Oxf8, Ox00, 0x00, 
0x00, 0x0c, Oxf8, Ox00, 0x00, 
0x00, 0x0c, Ox7c, 0x00, 0x00, 
0x00, 0x18, Ox7Zc, 0x00, 0x00, 
0x00, 0x18, 0x3e, 0x00, 0x00, 

0x30, 0x3e, 0x00, 0x00, 

0x30, Ox1f, 0x00, 0x00, 

0x60, Ox1f, 0x00, 0x00, 

0x60, OxOf, Ox00, 0x00, 

0xc0, OxOf, 0x80, 0x00, 

















0x00, Oxc0, OxOf, 0x80, 0x00, 
0x01, Oxff, Oxff, Oxc0, 0x00, 
0x01, Oxff, Oxff, Oxc0, 0x00, 
0x03, 0x80, 0x03, 0xe0, 0x00, 
0x03, 0x00, 0x03, 0xe0, 0x00, 
0x07, 0x00, 0x01, OxfO, 0x00, 
0x06, 0x00, 0x01, OxfO, 0x00, 
0x0e, 0x00, 0x00, Oxf8, 0x00, 
0x0c, 0x00, 0x00, Oxf8, 0x00, 
Ox1c, 0x00, 0x00, Oxfc, 0x00, 
0x3e, 0x00, 0x00, Oxfe, 0x00, 
Oxff, Oxc0, 0x07, Oxff, 0x80 
kh 


void main() 

( 
int graphdriverzVGA, graphmodezVGAHI; 
initgraph(égraphdriver, 8-graphmode, "); 
Sprite( 120, 100, A, 5, 29 ); 
getch(); 
closegraph(); 


Ha sikerült begépelni a fenti listát, TURBO C-vel 
fordíthatjuk. Eredményként egy nagy fehér "T" jelenik meg a 
képernyőn. Ha már így belejöttünk, csináljuk ezt meg színes- 
ben. A képkirakás ezen a módon lényegesen egyszerűbb, a 
képet tartalmazó tömb megírása viszont gondot okozhat. A 
következő számban ehhez adunk egy kis segítséget. A forrás 
és a futtatható file a következő havi lemezen lesz. A bemuta- 
tott példa egy tátott szájú figurát rajzol a képernyőre, amit a 
kurzormozgató billentyűkkel mozgathatunk. Az Esc billentyű 
lenyomására vége a csodának. Fordítás szintén TURBO 
C-vel. 


Hinclude cgraphics.h2 
$include cstdio.h: 


fdefineESC 27 
Hdefine JOBB 77 
fdefineBAL 75 
fdefineFEL 72 
tdefineLE 80 


main() 


( 
int driver, mode, c, x-300, y-120; 


char image[294] - ( 
19, 0, 23, 0, 0.254, 0, 0.254, 0, 
0,254, 0,255, 1,240, 3,255,128, 3, 
255,128, 3,255,128.252, 0,112, 7,143, 
192, 7,143,192, 7,143,192,248, 0, 48, 
31,119,240, 31, 23240, 31, 23,224 224, 
112, 0, 31,119,224, 31, 55,224, 31, 55, 
192224 112, 16, 63,119,192, 63, 23,192, 
63, 23,128,192,112,48,127,143,128,127, 
143,128,127,143, 0,128, 0,112,127,255, 
0,127,255, 0,127,254, 0,128, 0,240, 
255,254, 0,255,254, 0,255,252, 0, 0, 
1,240,255,252, 0,255,252, 0,255,248, 
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driversEGA; 


mode-EGAHI; 
initgraph(é.driver, 8mode, "); 


0, 0, 3.240,255.248, 0,255,248, 0. 
255240, 0, 0, 7,240,255.240, 0,255, 
240, 0,255,224, 0, 0, 15,240,255,248, 
0,255,248, 0,255,240, 0, 0, 7.240, 
255252, 0,255,252, 0,255.248, 0, 0, 
3.240,255,254, 0,255,254, 0,255,252, 
0, 0, 1.240,127,255, 0,127,255, 0 
127254, 0,128, 0,240,127,255,128,127. 
255,128,127,255, 0,128, 0,112, 63.255, 
192, 63,255,192, 63,255,128,192, 0, 48. 
31,255,224, 31,255,224,31,255,192,224, 
0, 16, 31,255,240, 31,255,240, 31255, 
224224, 0, 0, 7,255,192, 7,255,192, 
7.255,192,248, 0, 48, 3,255,128, 3 
255128, 3,255,128,252, 0112, 0254, 
0, 0254, 0, 0,254, 0255, 1240, 
0, 0, 0, 0, 0, 0, 0, 0, 0255, 
255240, 0, 0 
; 


outtextxy(10,10,"Nyilakkal mozgathatja, Esc-re Kilép"); 


putimage(x y image COPY PUT); 


while( (csgetch())!-ESC ) 
( 


! 


switch( c ) 


case FEL : if(y2:10) 


( 
putimage(xy image XOR PUT); 


Yéy6; 


putimage(x,y image, XOR PUT); 
) 


break; 


case LE : iflyc340) 


( 
putimage(x,y image, XOR PUT); 
yzyt5 
putimage(x y image XOR PUT); 
) 


break; 


case BAL : if(x210) 


( 
putimage(x,y image XOR PUT); 
xzx-5, 

putimage(x y.image,XOR PUT); 
) 


break; 


case JOBB : if(xc620) 


closegraph(); 


( 
putimage(x,y. image XOR PUT); 
xzxt5 

putimage(x,y image,XOR PUT); 
b 


break; 











Egerészés 


Az egér használatáról még sokat írunk. Bevezetőnek fontos 
tudni, hogy az egeret a meghajtó programok a hexa 33 
megszakításra telepítik. A megszakítás hívásához egy példa: 
a karakteres képernyőn bekapcsoljuk az egérkurzort és egy 
billentyű leütése után kikapcsoljuk. 


dinclude cdos.h2 
dinclude calloc.h2 
int a; 


int mouse(int mt, int m2.int m3, int m4) 


( 


union REGS mousreg; 
mousreg.x.ax - mt; 

mousreg.x.bx - m2; 

mousreg.x. 3; 

mousreg.x.dx z m4; 

int86(0x33, 4mousreg, $mousreg); 
return (mousreg.x.ax); 


void main() 


( 


a - mouse (0x00,0,0,0); 
if (a Oxffff) 





( 

puts (Van egér, bekapcsoltam a kurzort"); 
puts (Bármely billentyűre kikapcsolom "); 
mouse( 0x01,0,1,0); 

getch(); 

mouse( 0x02,0,0,0); 

J 

else puts (nincs egér); 





ü .L 


Fizesse elő az első magyarnyelvű, programozói magazint! 
Havonta lemezmelléklettel megjelenő lapunk ára 298 Ft.- 
Ha Ön előfizeti, kedvezményesen jut lapunkhoz. 





Előfizetési díj fél évre: 1494 Ft.- Így Önnek egy szám csupán: 249 Ft.- 
Előfizetési díj egy évre: 2388 Ft.- Így Önnek egy szám csupán: 199 Ft.- 
Iskoláknak egy évre: 1188 Ft.- Így egy szám csupán: 99 Ft.- 


Előfizethető a mellékelt csekken, vagy átutalási postautalványon a 
NASA Kft. 
218-98172/541-003578-3 számú számláján. 
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Visszabeszél a könyvelőprogram 


Lapunkban rendszeresen megszólaltatunk gyakorló profikat. 
Az első számban az apropót egy könyvelőprogramban alkalmazott 
érdekes megoldás adta. 


Én, mint szoftverfejlesztő, ügyviteli, nyilvántartási és vezér- 
lési programokat írok. Az egyik ügyfelem egy könyvelési cég, 
amely kevés alkalmazottal több, mint 100 vállalkozás bérszám- 
fejtését és könyvelését végzi. Egy ilyen cégnél nagyon fontos 
az időtényező. A sebességet a számítógépekkel és a prog- 
ramokkal bizonyos határok között ugyan lehet növelni, de az 
adatok rögzítése nagyságrendekkel több időt visz el, mint a 
feldolgozás. Jelentősen csak a rögzítés gyorsításával 
javíthatjuk a teljesítményt. Hogyan valósítható ez meg? 

Először is mivel a könyvelő egyik keze foglalt, a programban 
az adatok rögzítéséhez elég csak a keypadot a numerikus bil- 
lentyűket használni. A mentésre a ?, egy lista lekérésére a -t 
billentyű szolgál, így a rögzítő egyik keze felszabadul, a 
másikban foghatja a rögzítésre váró számlákat. Már csak azt 
kellene megoldani, hogy ne kelljen állandóan a monitorra 
felpillantani, mert hát ugye az ellenőrzés nagyon fontos. 
Erre egy remek, egyszerű és nem túl drága megoldás, a Nikol 
Elektronika fejlesztése a PC-ROBOT kínálkozik. Ez a rend- 
szer lehetővé teszi a magyar nyelvű szöveg érthető 
kimondását. Tartozik hozzá egy beszédszintetizátorkártya 
hangszóróval és néhány program. A rendszer felélesztése 
egyszerű, a beszédet egy kb. 75 Kb-os rezidensprogram 
állítja elő. Már csak a programunkba való beillesztés van 
hátra. Az unit meghívásakor a Robotlnit eljáráson keresztül 
teszteli, hogy a beszélőrendszert installálták-e, a szükséges 
rezidensprogram elindult-e. Ehhez a RobotlnitedProcot hívja 
meg. Ez a függvény az AX-et feltölti FOOO hexával és meghív- 
ja a 2F hexa szoftver interruptot, ami AL — FF hexaértékkel 
jelzi a rendszer installálását. A Robotlnited globális változó, a 
teszt eredményére áll be. Ezután a ReadRobotOpcioRec 
felolvassa a már letárolt opciókat, vagy betölti az 
alapértelmezettet. Ezek az opciók a RobotOpcioRec globális 
változóban érhetők el. Egy szöveget kimondatni úgy lehet a 
rendszerrel, hogy az AX-be FO01 hexát kell tölteni, és a 
DS:DX-et a kimondandó szöveg kezdő címére kell állítani. 
Ezután már lehet hívni az előbb említett interruptot. 
A beszéd opcióit -- sebesség, hangmagasság, hangtónus, sut- 
togás, hangosság, intonáció, tagolás és hanghosszúság -- az 
ESC vezérlőkarakter és egy kód kimondatásával lehet beállí- 
tani. Az opciók beállítását célszerű a felhasználóra bízni, így 
a beszédet az saját fülének megfelelőre hangolhatja. Erre cél- 
szerű a felhasználói programban, például a rendszer- 
paraméterek menüpontban egy beolvasó ablakot nyitni. 
A könyvelői programba való beillesztés előnye, hogy a szám- 
lákról nem kell felnézni, mert a hangszóróból -- ha több gépen 
használják, akkor a fülhallgatóból -- kontrollként vissza lehet 





hallani a begépelt vagy kiválasztott adatokat, pl: , Kiss István 
tartozik Tízezer forint -- huszonöt százalék áfával". Ezen a 
megoldáson kívül még számtalan helyen fel lehet használni a 
megadott egyszerű uniton -- RobotDrv.Pas -- keresztül a PC- 
ROBOT beszélőrendszert. 


Balla László vill. mérnök 
Telefon: 226-8962 


1. Lista ROBOTDRV.PAS 


unit RobotDrv; 
interface type 
(" A robot opció rekord típus deklarációja ") 


RobotOpcioRecTipus - record 
Hasznalatban . : Boolean; 
Sebesseg : Byte; 
Hangmagassag . : Word; 
Hangtonus : Byte; 
Suttogas : Byte; 
Hangossag : Byte; 
Intonacio : Byte; 
Tagolas : Byte; 
Hanghosszusag  : Byte; 

end; 


procedure RobotKimondíSt : String); 
procedure SetRobotSebesseg(S : Byte); 
procedure SetRobotHangmagassagíP : Word); 
procedure SetRobotHangtonusí(V : Byte); 
procedure SetRobotSuttogas(W : Byte); 
procedure SetRobotHangossag(A : Byte); 
procedure SetRobotlintonacio(l : Byte); 
procedure SetRobotTagolas(X : Byte); 
procedure SetRobotHanghosszusagíT : Byte); 
procedure SetRobotOpcioRec(Rec : 
RobotOpcioRecTipus); 


function WriteRobotOpcioRec : Boolean; 
function ReadRobotOpcioRec : Boolean; 
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var 
(" Globális változók ") 
Robotlnited  : Boolean; 


RobotOpcioRec : RobotOpcioRecTipus; 
( Az aktuális opciókat tárolórekord") 
implementation 
uses 
Dos; 


const 
EscStr z 27; 
RobotFName 5 "ROBOT.DAT; 
(" Annak file-nak a neve, amiben az opciókat tároljuk") 
DefaultSebesseg 57; 
DefaultHangmagassag  - 100; 
DefaultHangtonus z1; 
DefaultSuttogas z0; 
(" Az alapértelmezett beállítások ") 
DefaultHangossag z 10; 
Defaultintonacio 1 
DefaultTagolas a ói 
DefaultHanghosszusag - 0; 


procedure ErrorMessageí(St : String); 
(" Hibaüzenet kiírása. ") 
(" Az aktuális környezetben ezt az eljárást kell 
kicserélni. 
51 
begin 
WriteLn(St); 
end; 


function Long2sStr(L : Longlnt) : String; 
(" Egész sztringgé alakítása. ") 


var 
St : String; 
begin 
Str(L, St); 
Long2Str :- St; 
end; 
function RobotlnitedProc : Boolean; ( A beszélő 
rendszer installálását teszteli. ") 
var 
R : Registers; 
S : Word; 
begin 
R.AX :— $F000; 
Intr($2F, R); 
(" 2F hexa szoftver interrupton keresztül lehet elérni.") 
RobotlnitedProc :-— (R.AL - $FF); 
end; 


(" Ha a visszatérési érték FF hexa, a ") 
( rendszer installáva van. ") 


procedure LowRobotKimondíSt : String); 


(" A rendszer tesztelése nélkül kimondja 
a megkapott St sztringet. ") 


var 
R : Registers; 
S : Word; 
begin 
R.DS :— Seg(St); 
R.DX :— Ofs(St); 
R.AX :-— $F001; 
( Az AL-01 jelzi, hogy a DS:DX az St kezdőcímére 
mutat ") 
Intr($2F, R); 
S :z R.AAX; 
ifS50 
then begin 
ErrorMessage 
"4Long2Str(5)); 
exit; 
end; 
end; 


(PC Robot hiba : 


procedure RobotKimondíSt : String); 
(" Ha a rendszer installálva van, a megkapott 
St sztringet átadja kimondásra. ") 
begin 
if not Robotlnited then exit; 
LowRobotKimondí(St); 
end; 


procedure SetRobotSebessegí(S : Byte); 
( A kimondás sebességét állítja be. ") 
begin 
if not (S in [1..7]) then S :- DefaultSebesseg; 
RobotKimond(EscStrt"sLong2sStr(S)); 
end; 


procedure SetRobotHangmagassag(P : Word); 
(" A kimondás hangmagasságát állítja be. ") 
begin 
if (P c 20) or (P : 400) then P :- 
DefaultHangmagassag; 
RobotKimond(EscStr--"p"Long2Str(P)); 
end; 


procedure SetRobotHangtonusí(V : Byte); 
( A kimondás hangtónusát állítja be. ") 
begin 
if not (V in [1..2]) then V :- DefaultHangtonus; 
RobotKimond(EscStrt"vLong2sStr(V)); 
end; 


procedure SetRobotSuttogas(W : Byte); 
( A suttogást lehet ki-be kapcsolni. ") 
begin 
if not (W in [0..1]) then W :— DefaultSuttogas; 
RobotKimond(EscStrt"wiLong2Str(W)); 
end; 


procedure SetRobotHangossag(A : Byte); 
( A kimondás hangosságát. állítja be. ") 
begin 
if not (A in [1..13]) then A :- DefaultHangossag; 
RobotKimond(EscStr--"aLong2Str(A)); 
end; 
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procedure SetRobotlntonacio(l : Byte); 
( A kimondás intonációját állítja be. ") 
begin 
if not (I in [0..1]) then I :- Defaultlntonacio; 
RobotKimond(EscStrt"i"tLong2Str(l)); 
end; 


procedure SetRobot Tagolas(X : Byte); 
(A kimondás tagolását állítja be. ") 
begin 
if not (X in [0..6]) then X :- DefaultTagolas; 
RobotKimond(EscStr4t"x"Long2Str(X)); 
end; 


procedure SetRobotHanghosszusagíT : Byte); 
( A kimondás hanghosszúságát állítja be. ") 
begin 
if not (T in [0..3]) then T :- DefaultHanghosszusag; 
RobotKimond(EscStrtt-Long2Str(T)); 
end; 


procedure SetRobotOpcioRec(Rec : 
RobotOpcioRecTipus); 
( A megkapott robot opció rekord alapján beállítja az 
opciókat. ") 
begin 
with Rec do 
begin 
SetRobotSebesseg(Sebesseg); 
SetRobotHangmagassag(Hangmagassag); 
SetRobotHangtonus(Hangtonus); 
SetRobotSuttogasíSuttogas); 
SetRobotHangossag(Hangossag); 
SetRobotlintonacio(iIntonacio); 
SetRobotTagolasíTagolas); 
SetRobotHanghosszusag(Hanghosszusag); 
end; 
end; 


function WriteRobotOpcioRec : Boolean; 
(" Az aktuális robot opció rekordot menti le. ") 


var 
F : File of RobotOpcioRecTipus; 
1 : Integer; 
begin 
WriteRobotOpcioRec :- false; 
Assign(F, RobotFName); 
Rewrite(F); 
Write(F, RobotOpcioRec); 
Close(F); 
1: IOResult; 
If I c3 0 then 
begin 
ErrorMessage( Write hiba cRobotOpcioRec: : 
"4Long2Str(l)); 
exit; 
end; 
WriteRobotOpcioRec :- true; 
end; 


function ReadRobotOpcioRec : Boolean; 
(C Az aktuális robot opció rekordot olvassa fel, vagy 
feltölti az alapjértelmezett adatokkal. ") 








F : File of RobotOpcioRecTipus; 
I : Integer; 
begin 
ReadRobotOpcioRec :- false; 
Assign(F, RobotFName); 
Reset(F); 
1 :- IOResult; 
case I of. 
0 : begin (" Beolvassa a rekordot ") 
Read(F, RobotOpcioRec); 
Close(F); 
1 :z IOResult; 
ifi 50 
then begin 
ErrorMessage(" Read hiba 
ScRobotOpcioRec? : 4Long2Str(l)); 
exit; 
end; 
end; 
2 : begin (" Feltölti a rekordot ") 
FillChar(RobotOpcioRec, 
SizeOf(RobotOpcioRecTipus), 0); 
with RobotOpcioRec do 
begin 
Sebesseg :-— DefaultSebesseg; 
Hangmagassag :- DefaultHangmagassag; 
Hangtonus :-— DefaultHangtonus; 
Suttogas :-— DefaultSuttogas; 
Hangossag :-— DefaultHangossag; 
Intonacio :— Defaultintonacio; 
Tagolas :5— DefaultTagolas; 
Hanghosszusag :- DefaultHanghosszusag; 
end; 
if not WriteRobotOpcioRec then exit; 
end; 
else begin 
ErrorMessage( Read hiba cRobotOpcioRec: : 
"4Long2gStr(l)); 
exit; 
end; 
end; 
ReadRobotOpcioRec :- true; 
end; 


procedure Robotlnit; 
(" A unit az első meghívásakor teszteli, 


és felolvassa, majd beállítja az opciókat ") 
var 
Rec : RobotOpcioRecTipus; 
begin 
Robotlnited :— RobotlnitedProc; 
if not Robotlnited then exit; 
if not ReadRobotOpcioRec then exit; 
Robotlnited :- RobotOpcioRec.Hasznalatban; 
if not Robotlnited then exit; 
SetRobotOpcioRec(RobotOpcioRec); 
end; 


begin 
Robotlnit; 
end. 
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PEROBASZAMBUL ; 


2. Lista 
A kipróbáláshoz egy egyszerű példa: Demo.Pas 


program Demo; 


uses 
RobotDrv; 


procedure Kimond(S : String); 
begin 
RobotKimondí(Sr"."); 
end; 


begin 
WriteLn(PC Robot); 
Kimond(PC Robot); 
WriteLn(Százhúszezerötszáz ); 
Kimond("1205007; 

end. 


A világ legolcsóbb 
helyi PC-UNIX hálózata 
COHERENT 4.2 
15.200 Ft -- áfa 
300 UNIX Utilities, 

C és 386-os Assembler fordítóval. 
X-Windows csomagok: 


Open Look, Motif-Like, Visual Basic, 
Desktop Utilities, Graphics. 





Egyéb programok: 
DBase III--, SlickEdit, 
Lotus 123, PANEL Plus II, 
CodeBase 5.0. 


SAMSUNG 


SAMSUNG monitorok 
teljes választéka 
viszonteladóknak is! 





CANON nyomtatók: 


PI: BJ-330 74.900 Ft -- áfa 
BJC-4000 63.920 Ft -- áfa 


í . NASA Reklámiroda 1 s 
— — — -Bp.51085- Népszínház u- 31. — —— BECO Kft. 
8 IZÉT eTO a 1091 Budapest, Üllői út 119. 


(bejárat a Michálkovics utcából) 


Telí/fax: 134-1273 Tel./fax: 218-4578 
Üzenetrögzítő: 217-8592 
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BMPINFO 


A BMP file-formátum 
olvasása és megjele- 
nítése egy C nyelvű 
programmal. 



































CDMUSIC 


Ajándék CD lejátszó Windows alá tömörítve. 


Edit View Order Options Help 


[a] 
ENE: og) 
(Ehutne [Repcat [Time ] 


Eject Scan Search Skip Play Pause Stop 
a 94 [a [2 [re [DE] I 1 MI] (Single ) Volume 














COMPFAIR 


Próbaszámunk legjobb 
témái forrásnyelven. 


GOMBMENU 


Saját felhasználói felület 
kialakításához, grafikus 
gombmeni két példával. 
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PASCAL — APASCAL iskola forrásai. 


www TIPPEK dBASE fejléc olvasása. 


-— TMPLUS Bővebben a lap 21. oldalán. 


UNIX Shell programok a cikk alapján. 


15  11124134 redmusic 
WIN ANI 566 11/29194 Ocom fair 
LÉ hord keg 


ia 








a 


Transzparens animáció " 
a Windows képernyőn. 
078 
078 11/27/9 
266 11/24/94 
958 11/23/94 Otmplus 


A A IND. A 


vonsz alasos 


WIN ORA Windows iskolánk első forrásai. 


] 2:35:20. 9.755 MB freel v[/ 
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BASIC 


Keretező 


Mit ér egy kép keret nélkül ? Egy DEMO programban néhány 
példát mutatunk a különféle  keretezési eljárásokra BASIC 
nyelven. 


1000 KEY OFF: SCREEN 2: CLS 

1030 LINE (0,0) - (639,199),,B 

1040 LOCATE 11,15 

1050 PRINT STRING$(20,219)5PACE$(2)"1.Keret SPACE$(2)STRING$(20,219) 
1060 LOCATE 15,32 

1070 PRINT "Üssön le billentyűt!" 

1080 WHILE INKEY$-": WEND 

1100 CLS 

1110 LINE (0,0) - (639,199),,B: LINE (22) -(637,197),,B 

1120 LOCATE 11,15 

1130 PRINT STRING$(20,219)5PACE$(2)"2. Keret SPACE$(2)STRING$(20,219) 
1140 LOCATE 15.32 

1150 PRINT "Üssön le billentyűt!" 

1160 WHILE INKEY$-": WEND 

1200 CLS 

1210 LINE (0,0) - (639,199),,B: LINE (1,1) - (638,198),,B: LINE (2.2) -(637,197), B 
1220 LOCATE 11,15 

1230 PRINT STRING$(20,219)5PACE$(2)"3. Keret SPACE$(2)STRING$(20,219) 
1240 LOCATE 15.32 

1250 PRINT"Üssön le billentyűt!" 

1260 WHILE INKEY$-": WEND 

1300 CLS 

1310 LOCATE 1,1 

1320 PRINT STRING$(80,219); 

1330 LINE (00) - (20,199),,BF: LINE (619,0) - (639,199),.BF 

1340 LOCATE 25,1 

1350 PRINT STRING$(80,219); 

1360 LOCATE 11,15 

1370 PRINT STRING$(20,219)SPACE$(2)"4. Keret SPACE$(2)STRING$(20,219) 
1380 LOCATE 15,32 

1390 PRINT "Üssön le billentyűt!" 

1395 WHILE INKEY$-": WEND 

1400 CLS 

1410 FOR X - 199 TO 0 STEP-2 

1420 LINE (04X, 01X) - (639-X, 199-X),,B 

1425 NEXT X 

1430 LOCATE 11,36 

1440 PRINT "5. Keret " 

1450 LOCATE 15.32 

1460 PRINT "Üssön le billentyűt!" 

1470 WHILE INKEY$-": WEND 

1500 CLS 

1510 FOR X - 16 TO 0 STEP-1 

1520 LINE (0X, 0-X) - (639-X, 199-X), B 

1530 NEXT X 

1540 LOCATE 11,21 

1550 PRINT STRING$(15,219)SPACE$(2)76. Keret SPACE$(2)STRING$(15,219) 
1560 LOCATE 15.32 

1570 PRINT "Üssön le billentyűt!" 

1580 WHILE INKEY$-"7: WEND 

1600 CLS 

1610 FOR X - 57 TO 0 STEP -20 

1620 LINE (04X,0rX) - (639-X, 199-X), B 

1630 NEXT X 

1640 LOCATE 11,32 

1650 PRINT STRING$(10,219)SPACE$(2)"7. Keret SPACE$(2)STRING$(10,219) 
1660 LOCATE 15,32 

1670 PRINT "Üssön le billentyűt!" 

1680 WHILE INKEY$-": WEND 

1700 CLS 

1710 FOR X-0 TO 199 STEP 7 

1720 LINE (0--X,01-X) - (639-X, 199-X), B 

1730 NEXTX 














1740 LOCATE 11,36 

1750 PRINT "8. Keret " 

1760 LOCATE 15.32 

1770 PRINT "Üssön le billentyűt!" 

1780 WHILE INKEY$-": WEND 

1800 CLS 

1810FORX-0TO20 STEP 5 

1820 LINE (0FX.0rX) - (639-X,199-X), 1,B 
1830 NEXT X 

1840 LOCATE 11,32 

1850 PRINT STRING$(10,219)5PACE$(2)79. Keret SPACE$(2)STRING$(10,219) 
1860 LOCATE 15,32 

1870 PRINT "Üssön le billentyűt!" 

1880 WHILE INKEY$-": WEND 

1900 CLS 

1910 FORL - 20 TO 40 STEP 5 

1920 LINE (04L,0-L) - (639-L, 199-L), B 
1930 NEXTL 

1940 FORX-0T0O 20 STEP 1 

1950 LINE (04X,04X) - (639-X, 199-X), B 
1960 NEXT X 

1970 LOCATE 11,32 

1975 PRINT STRING$(10,219)SPACE$(2)"10. Keret SPACE$(2)STRING$(10,219) 
1980 LOCATE 15.32 

1985 PRINT "Üssön le billentyűt!" 

1990 WHILE INKEY$-": WEND 

2000 CLS 

2005 FOR W - 15 TO 0 STEP -1 

2010 LINE (0£W,0-W) - (639-W,199-W), B 
2015 NEXT W 

2020 FOR X - 29 TO 0 STEP -3 

2025 LINE (04X,0rX) - (639-X, 199-X), B 
2030 NEXT X 

2040 FORY - 59 TO 0 STEP -5 

2045 LINE (OrY,OrY) - (639-Y, 199-Y), B 
2050 NEXT Y 

2060 LOCATE 11,36 

2065 PRINT STRING$(10,219)SPACE$(2)"11. Keret SPACE$(2)STRING$(10,219) 
2070 LOCATE 15,32 

2080 PRINT "Üssön le billentyűt!" 

2090 WHILE INKEY$-": WEND 

3000 CLS 

3010 LOCATE 1,1 

3015 PRINT STRING$(160,176); 

3020 LOCATE 23,1 

3030 PRINT STRING$(160,176); 

3040 FOR X - 10 TO 629 STEP 640 
3050 LINE (104X,104X) -(629-X, 181-X), B: LINE(204X,204X)-(619-X,171-X),, B 
3060 NEXT X 

3070 LOCATE 11,26 

3075 PRINT STRING$(10,219)SPACE$(2)"12. Keret 
"SPACES$(2)STRING$(10,219) 

3080 LOCATE 15.32 

3085 PRINT "Üssön le billentyűt!" 

3090 WHILE INKEY$-": WEND 

3100 CLS 

3110 FOR X - 100 TO 600 STEP 2.5 
3120 LINE (0X,0$.X) - (639-X,199-X),,B 
3130 NEXT X 

3140 LOCATE 11.35 

3150 PRINT "13. Keret " 

3160 LOCATE 17,32 

3170 PRINT "Üssön le billentyűt!" 

3180 WHILE INKEY$-"7: WEND 

3200 CLS 

3210 FOR X-0 TO 40 STEP 1.5 

3220 LINE (0-X.0-X) - (639-X, 199-X),,B 
3230 NEXT X 

3440 LOCATE 11,35 

3445 PRINT "Ez a 14. és nincs tovább " 
3450 LOCATE 17.32 

3455 PRINT "Üssön le billentyűt a kilépéshez!" 
3460 WHILE INKEY$-": WEND 

3470 CLS:SYSTEM 


Sírató 


Ámiga 





Érdekes hangvételű írást kaptunk a lap összeállítása során Cs. Gyulától, 
az egykor nem minden alap nélkül favorizált, csodált géptípus kimúlásáról. 
Közben valahogy elveszítettük egymást, kérem ha olvassa a cikkét, 
keressen meg bennünket. 


Mi fán terem a M68000-es mikroprocesszor? 
Ez bizony nem Chio, hanem Motorola chip. Reklámozni sem 
lehet úgy, hogy kidugja egy kéz a TV képernyőjén, mire egy 
pasi vigyorogva bólogat, valamint nem ropogós és friss, bele- 
harapni sem célszerű. Ennek a ronda fekete százlábúnak a 
fejlesztését 1977-ben kezdték el, de nem azért mert egyre 
kínosabbá vált az a felismerés, hogy a 8 bites processzorokat 
64 Kb-nál több memória esetén körülményes alkalmazni, 
hanem mert e cikk írója éppen akkor lett 10 éves. Igen hízel- 
gő a Motorola cégtől, hogy ezt a jelentős eseményt figyelem- 
be vették. Akinek kicsit réginek tűnik a 1977-es dátum, annak 
igaza van, nem éppen tegnap dobták a piacra a M68000-est. 
Vegyük viszont figyelembe, hogy akkor kezdtek bele a 
fejlesztésbe, amikor jószerint csak az volt az érdekes, hogy a 
processzorok teljesítsék feladatukat és azt hitték a legjobb- 
nak, amelyik a legtöbb utasítást megértette. A meglevő tárka- 
pacitás azonban egyre inkább szűkösnek bizonyult és egy-egy 
hatékonyabb program esetében már nemcsak az számított, 
hogy elfér-e a memóriában, hanem elfogadható idő alatt 
lehet-e lefuttatni. E problémákat felismerve kezdett bele a 
Motorola egy (akkor) gyors 16 bites processzor fejlesztésébe. 
Természetesen a cég nem találta fel a spanyolviaszt, így 
jónéhány más processzornál már kedvelt és bevált tulajdonsá- 
got, javított formában, beépítettek a M68000-esbe, így 
például az Intel központi egységeinek számos funkcióit is 
átvették. A M68000-es felépítése családszerkezetű (mint a 
80086), tehát a teljesítményt illetően léteznek új és újabb vál- 
tozatok, ezek felülről lefelé kompatibilisek (elvileg), de 
maradjunk az őskorban az M68000-nél. A félvezetők 
összetett mikroprocesszor előállításához az áramkörsűrűség 
nem volt megfelelő. Ehhez a procihoz kb. 68000 tranzisztor- 
ra, illetve 13000 kapuműveletre van szükség, ami egy 
Pentium többmilliós nagyságrendjéhez viszonyítva nevet- 
ségesen alacsony, ám vegyük figyelembe, hogy ez a 68000-es 
család első generációja. Bármilyen hihetetlennek tűnik, a 
központi egységben is van ROM, ez tartalmazza a proci saját 
utasításkészletét, illetve a processzorba érkező gépi kódú 
utasítások mikroprogramjait. Ez úgy is felfogható mint 
processzor a processzoron belül. Az érthetőség kedvéért néz- 
zünk meg egy rövid példát. A MULU utasítás azt jelenti, hogy 
a központi egységnek szoroznia kell. A programozót nem 
érdekli, hogy a proci hogyan bűvészkedik, számára az a 


lényeg hogy meglegyen a művelet. A beérkező utasítás a 
processzornak csak egy kód, méghozzá a megfelelő mikro- 
program kódja, amit azonosítás után elindít, tehát egy 
makroutasítás sok mikroutasítás végrehajtását váltja ki. 
Mindezekből következik, hogy egy ilyen processzor 
utasításkészletének változtathatósága és bővíthetősége vi- 
szonylag egyszerű, ha van még némi szabad ROM terület 
egy-két újabb mikroprogram számára. A M68000-es kifej- 
lesztésénél az egyik legfontosabb követelmény pedig a bővít- 
hetőség volt. Ennek a processzornak mindössze 56 assembler 
utasítása van, ez más processzorokhoz képest kevés. A 14 
címzésmód miatt, viszont több mint 1000 utasítása van. 
(Remélem senki sem szorozta meg az 56-ot 14-el.) 
Tulajdonképpen könnyen programozható ez a chip. Az Amiga 
1000 a standard 8Mhz-es változatot kapta meg, először 1984- 
ben. Ennek teljesítménye akkor bőven elégséges volt, és hard- 
ware környezetével az akkori legjobb gépnek számított. 1986- 
ban az A500 az év gépe lett, mert sok olyan profi dolgot tar- 
talmazott, amelyet más személyi számítógépek nem, pl: 

két grafikus co-proci is gubbasztott benne, valamint a palettá- 
ja már RGB volt, vagyis a színek a piros-zöld-kék alap- 
színekből voltak kikeverhetők. Az már más kérdés, hogy 
1991-92-ben (a személyi számítógépek körében elérhető 
áron) még mindig szinte ugyanazt a hardware-t dobta piacra a 
Commodore, amikor a PC világ már régen a még nagyobb 
teljesítnény még alacsonyabb ár vonalán nyomult. Először 
szinte mindenki lecserélte régi C64-esét Amiga 500-asra és 
dícsérte, hogy az milyen jó meg szép. Ma ha megkérdezek 
valakit, akinek 500-asa volt (és most 486-osa van) azt mond- 
ja: "ja igen, ....", pedig a gép azóta mit sem változott, és éppen 
ez a baj. Az újabb (kisebb kategóriájú és elérhető árú) Amigák 
nem igazán váltották be a hozzáfűzött reményeket, ahol sze- 
rintem két dolog volt a buktató: az első a még mindig nem- 
moduláris felépítés (nehéz és drága bővíthetőség), a második 
az alacsony teljesítmény (A500--, A600, A1200). Hát igen, a 
7Mhz-es M68000, illetve a 14Mhz-es M680EC20 nem igazán 
illik bele a korszerű személyi számítógépről alkotott képbe. 
Mai szemmel nézve a jó öreg M68000 rém lassú, ami pedig 
igen jó eséllyel felvehetné a harcot a 486-os procikkal szem- 
ben, a 68040 és a 68060 pedig rém drága. 


Cs. Gyula 
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Terveinkből: HIRDETŐINK: 


Megjelent az IBM operációs rend- JAR IIN HEBOND 


A GÉ a BECO KFT. 
szerének új változata. DÉMA KFT. 
Vallatjuk: hogyan viselkedik mint MTA SZTAKI 
fejlesztő környezet. NASA REKLÁMIRODA 
Vizsgáljuk a kompatibilítást és a PIXEL GRAPHICS 
sebességet PRESENT COMPUTER 

E. STARKING ÓOBUDA APPLE CENTER 
SCANDER KFT. 





TEX STUDIO KFT. 


Hangkártyák programozásáról írunk. 
Nem maradnak ki sem a GRAVIS, 
sem a SOUNDBLASTER kártyák. 
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Alapító főszerkesztő: 
Nagy Sándor 


Felelős kiadó: 
Ablakkezelés Dos alatt, TURBO C Nagy Sándorné 
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használói felületünk építését az ksiG 
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Windows programozó sorozatunkban Terjesztés: 
gyermekablakok létrehozását, .  Hírker Rt. j 
kezelését, az MDI alkalmazását MGGKESSáTzkszéskodelti Rt. 
8 Alternatív terjesztők 
(Multiple Document Interface) 
ismertetjük következő számunkban. Hirdetésfelvétel: 
Bauer Csilla 
Kériné Bors Melinda 
Tel/Fax : 134-1273 





Előfizetés: 
Fél évre: 1494.- Ft. 
Folytatódik assembler sorozatunk Egész évre: 2388.- Ft. 


a játékprogram írás rejtelmeiről. Iskoláknak: 1188.- Ft. 
OTP Bank Rt. XVII.ker fiók 


541-003578-3 
NASA Kft. számláján. 





"tudni hogyan". Igen, a mai egyre élez 
a pigekutatás mellett döntő fontosságú, hogy megismerjék cégét, 
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VOL AZ KZT TT 
Irodánk" vállalja reklámjainak és  hirdetéseinek 
elkészítését, mind az írott, mind az elektronikus sajtóban, 


Cégünk többéves tapasztalattal rendelkező:kféatív ésapata a 
TETT UT aaa Ön"hirdetéséi "nyitott szemekre és 
ÜLT TU UT A 

Amennyiben felkeltettü ves érdeklődését, örömmel vennénk, 
"lha első megrendelésével bizonyságot tehetnénk munkánk 


Tisztelettel: 


Reklámiroda 





a vezető Macintosh szerver-kliens relációs adatbázis-kezelő. 

4D First: 28.900 Ft. 4th Dimension: 98.900 Ft 4D Server: 169.900 Ft 
A 4D First nagyteljesítményű relációs adatbázis-kezelő. 
egyszerű kezelhetőség, sok beépített automata funkció, 

mellékelt kész sablonok ( nla-, költsé: 

kezdő is azonnal használatba veheti! 
ionális 4D adatbázis technológiába! 
oftver-vásárlása - egy nagyteljesítményű adatbázis-kezelő, 


evőnyilvántartás) 


nagyszerű felhasználói felülettel, és mindez kevesebbért, mint egy 
FileMaker Pro ára"- MacUser, 1994. március dtötttíta 
Ne Ön legyen az utolsó aki kipróbálja a 4D First-öt! 
Akció: 4D First most minden géphez ingyen!!! 


Lízing-tartósbérlet " szerviz átalány " törzsvásárlói rendszer... 


Starking Óbuda €é. Apple Center 


Budapest, Bécsi út 77-79 





úgsza 


MLTKÜT Vet 
díjtalan fejlesztőkészlettell 
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Erőforrások 





Grafikus felület C nyelven. 
PASAL ISKOLA 
dBASE for Windows 


sz KÖLL 





Assembler kezdőknek és haladóknak. 
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Forráskód a programozók lapja 





